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PC-98(1 本 )PC-88(1 本 )FM-7(1 本 )FM-77(1 本 ) X1t(1 本 ) 
ヽ es や 
\『 ダ ブル ・ ヴ イィ ジョン 


@MSX2/ ロ ム 版 (1 本 ) デ ィ ス ク 版 (1 本 ) 


天使 た ちの 午後 


@PC-88(3 本 )X1(2 本 ) 


2 Il= 


@PC-88(3 本 )X1(2 本 ) 


ey 


\ 天 使 た ちの 午後 ・ 番 外 編 | 


@PC-88(3 本 )FM-77(2 本 ) 
イラ イト リー ラフ 
ャ ピー プシ ョ ーVOol1 

ぎ 美 少女 写 真 館 スッ ジオ カッ トー 


@ PC-98(2 本 )PC-88(2 本 )FM-7(2 本 )FM-77(2 本 )X1t(2 本 )MZ-2500(2 本 ) 


\ プ ブレイ メイ トグラフ ィ ッ ク 集 


w ほ っ と ミル フ 


PC-98(1 本 )PC-88(2 本 ) 


\M( マ ドン ナ ) の 誘惑 


@MSX2/ デ ィ ス ク 版 (3 本 


ッ ラ ブチ エイ サ 


@PC-98(2 本 )PC-88(2 本 )X1(1 本 ) 
王 リー タ 編 ・ 女 高生 編 ・0L 編 
W リ ツ プス ティ イッツ の スチ コワ ー ア フス 編 日 衣 の 大 合 編 
@PC-88(5 本 ) 


レー ゴ 
2 ヾ 
@PC-88(3 本 ) 


%『 ロ リー タタ 姫 の 伝説 


@FM-7・77/ テ ー プ 版 (5 本 ) 
$ 天 使 た ちの 午後 II 一 美奈 子 ー 
特製 テレ フォ ンカ ー ド ン ノ う 3 名 


MG Nm 


突然 登場 させ て いた だ く が 、 私 は ラ 夢 太郎 の 師匠 の 無 無 
無風 衛門 で ある (「 そ っ ら そ うに えば る な / 」 夢 太郎 )。 
今 まで 長い 間 研 究 室 に 閉じ に 込 こも り 、 ア ダル トゲ ー ム 
の 研究 を 続け て お っ た 。 ど ん な 研究 か と 申す と 、 こ れこ そ 
アダ ルト ゲー ム の 進化 ・ 系 統 分 類 学 的 社会 学 と で も 言 お 
うか 、 今 まで どの 研究 者 も 成し遂げる こと の で き な か っ 
た 新しい 分 野 な の で ある 。 ま た 研究 は 途中 な の だ が 、 わ 
が 弟子 夢 太郎 か アダ ルト ゲー ム を 集大成 し た 書物 を 作ろ 
うと し て いる と いう の を 聞き 、 ま た その 苦闘 し て いる 姿 
を 見 る に 見 か ね 、 や も ーー え ず 、 助 け て や る こと に し 、 出 
て きた の で ある (「 う そ だ / 勝手 に 出 て きた くせ に 」ー 
夢 太郎 )。 

ここ で ひと つ 、 今 私 が や っ て いる 研究 の 一 端 を お 目 に 
か けた い 。 ア ダル トゲ ー ム の 歴史 、 今 や 化石 と 化し て し 
まっ た 大 古 の ソフ ト も 含め 、 ど の よう に し て 、 現 代 に 至 
っ た か を 紹介 し て お こう 。 

まず 、 パ ー ソ ナル コン ピュ ー タ ー が 、 や っ と 一 般 に 受 
け 入 れ ら れ 始 め た ころ 、 ゲ ー ム ソフ ト も まだ 数 える 程 し 
か な か っ た 時 代 で ある 。 そ う 、]98? 年 以前 と いう ころ 。 し 
か し 、 そ ん な 時 代 で も 、 ア ダル ト ソ フト は 、 発 生 の 第 一 
歩 を 踏み 出し て いた の で ある 。 ま だ 、「 ム フフ 」 な ど と いう 
言葉 は な く 、 み ん な 「 ム ム ム 、 ム ム ム …」 と うな っ て い 
た よう な ころ で 、 こ の 時 代 を 私 は " ム ム ム 新生 紀 " と 名 
付け て いる の で ある 。 

次 に 、 ア ダル トゲ ー ム が ゲー ム と し て の 価値 を 持ち 始 
め た 時 代 。 こ れ を 私 は "うれ し は ず か し 紀 " と 言っ て い 
る が 、 う れ し い の と は すず か し い の が いっ し ょ に な っ て 、 


ミニ まき ュ 5 き 生 ニ 


無 無 無風 衛門 : 夢 太郎 の 先生 で ある こと 
以外 詳細 は 不明 。 筑 波 研究 都市 の 森 の 中 
か ら 毎 夜 、 研 究 す る 声 が 聞こ ご えて ぐる 。 


話題 を 広げ て きた 時 代 で 、 特 に ロリ ー タ 属 に 分 類 さ れる 
ソフ ト が 目 を ひい た の で ある 。 

そし て 、 つ い に み ん な が 「 ム フフ ー/」 と 言っ て ゲー 
ム に と りつ いた 、" ム フフ の め り 込 み 紀 " に 入る 。 ゲ ー ム 
性 も 次 第 に 高まり 、 ア ド ベ ンチ ャ ー、 ア クシ ョ ン 、 パ バズ 
ル 、 シ ミュ レー ショ ン 、 昌 G… と 、 種 類 も どん どん 分 
化し 、 進 化 を 遂げ て いっ た の で ある 。 

さて 、 注 目 す べき は 次 の 時 代 。 果 た し て アダ ルト ゲー ム 
と は な ん な の か と 苦悩 し な が ら も 、 新 し い ア イデ ア こ 高度 
な 技術 を 駆使 し て 様々 な 挑戦 が 始ま っ た の で ある 。 こ ご こ れ 
を 私 は 、" つ っ こみ 紀 " と 称し て いる 。 時 々 意味 を 誤解 され 
る 向き も ある が か 、 と に か く 、 つ っ こん だ 時 代 な の で ある 。 
そし て 、 現 在 、1987 年 、1988 年 へ と 続い て いく 。 突然 、 
アダ ルト の メー カー が 増大 し 、 驚 くべ き バ リエ ーション 
で 、 そ の 個性 を 次 々 と 展開 し て いっ た の で ある 。 ま さ に 、 
"ムフフ 黄金 紀 " と 呼ぶ に ふさ わし い 時 代 な の で ある 。 
当然 、 こ れ か ら は どう な る の か と いう 、 未来 予測 も 大 
切な 研究 テー マ で ある 。 私 の 研究 結果 に よる と 、 今 まで 
挑戦 的 に ムフフ を や っ て きた も の か ら 、 真 に アダ ルト ゲ 
ー ム の ナ ワ バリ 、 コ ロニ ー を 確立 し て いこ うと する 現象 
が 生ま れ て くる も の こと 思わ れる 。 暗い イメ ー ジ 、 孤 独 な 
雰囲気 は な く な り 、 明 る くさ わ や か な ムフフ の 時 代 に な 
っ て いく の で ある 。 

大 ざっ ぱに その 歴史 を 見 て きた が 、 次 の ペー ジ で 、 そ 
の 時 代 に 出現 し た アダ ルト ゲー ム を 具体 的 に と ら え て み 
た の で 、 ぜ ひ 参 考 に し て いた だ きた い / ム ・ ム ・ ム ー ツ 


ロリ ー タ (野末 本 


RS 


どー NN 
1983( S.58) 

 - { 加 介 され 、 一 大 セ っ ョ 
3 マリ ちゃ ん 久 機 一 蜂 / を 聞き わが エニ ックス 


@ ロ リー タ I・ 衝撃 的 な タ も の と し て 名 高い 。 か ー い 
2 の) 下校 チェ イス いい 語 め て だ PS 


3 ee 一 部 割愛 させ て いた だ いた ソフ ト が ある こ と を 、 お 
いた し ます 


二 ら と ゲー ム 性 が 高く な る 
供 女 子宮 パニック の が 興味 を 引い た エニ ックス 
ト RPG/ プレイ ヤー を スキ 


ko 
ss es っ 
「 ム ム ム 新 生 紀 」 か ら こ の 時 代 に か け て 、 忘れ て な ら 6 | 

な いい くつ か の ゲー ム が ある 。 そ う 、CSK の 欠 セ ー ラ | 
ー 服 と 野球 浴 、 食 大 奥 和 物 語 、 供 温泉 みみ ず 芸 者 、 欠 中 1 
(まん じ )、 伸 道 筑 、@ オ フィ スラ ブ の 手ほどき 。 そ し て 、| 

! 

! 

! 

』 


に し て し まう 名 品 だ / 光栄 


| 日 本 マイ コン 学院 の 但 ナ イト レッ スン 、 ワ ー ル ド シ ス テ 
| ム の ラブ パッ ク な ど が それ で ある 。 ア ソコ ン Na 1 で 紹 
| 介し た が 、 も は や 、 伝 説 の ムフフ ソフ ト な の で ある ゾ 


介 還 りー タ ジグ トン 
⑯ 子 大 生 ブ ライ 1 うう 半 季 ン デ ル の 人 


M 


mW た 
2 


PSKWP58 照 


人 ⑱@ フ ァ イ ナ ル ロ リ ー タ 2 
1 @ 天 使 た ちの 午後 72 


@ つ メー? まじ の な クイ ズ ダ ー ム を アダ ルト に 基 り 


思 を 吹 


* アク ショ に 束 ダル ト も を 僚 々 登場 
間際 りり の お 太 き ん て 923 を と を 
ペン キ 屋 ユウ ちゃ ん ーー ジーン 麻季 


天 便 赤 ' ち の 生生 %pzr> み Egg ニケ プ k、 = に 
1984( S.59) 


番外 編 品 か ら ス ター ト し #7 ャ スト @P44 大 昭 
較 2| @ フ ェ ア リ ー ズ AG の 中 に バズ ル な ど を え 、 ム フフ 6 の 人 


レジ デン ス 


@ ア リス 的 アド ベン チャ ー ゲ ー ム で 、 人気 を 和 


め た 歴史 的 名 作 で ある PSK@P.64 参 昭 


1986( S.61) @ エ ミー 何 も 知ら な い エ ミー を 、 思 い どおり の 婦 に 幸 


ュー ウェ イブ 元祖 / ア スキ 


@ お ー い ノ か で や 大 CMA も 


時 代物 17 で ある 。 ポ ニカ 


人 @ 大 人 の 絵本 


ドー ーー ーー て ーーー ーーー ーー ーー マー つつ 


この 時 代 の こと を 少し お 話し し よう 。 今 か ら 考え る と 
随分 音 の よう に 思え る が 、 ア ダル トゲ ー ム だ け で な く 
世 は まき に パソ コン の 話題 で 持ち 切り の 時 代 で あっ た 
M 早く か ら パ ソコ ン に 取り 組ん だ 人 々 は 、 そ れこ そ 救 ら の 
el 】 時 代 が や っ て きた と ば か り に 盛り 上 上 が り 、 中 に は 、 自 分 
|2 で ゲー ム を 作り 、 売 り 出 し 、 つ い に は ソフ ト ハ ウス を 人 
て し まう 者 まで 出 て きた の で ある 。 も うお わか りか と 思 


@ ナ ナ ち ゃ ん の 秒 な キー 可 作 で 女 の チ の 服 を 脱が す 、 テ ク 
禁じ られ た 遊び ニカ ル ゲ ー ム の 元祖 ッ ト ニ カ 


リ | トレ ッ ス ン の 感動 を 体験 させ て 〈 
@ 鹿 子 ち ゃ ん の 秘密 た る 作 チャ ン ピ オン ソフ ト @ Pl 参照 


っ ーー つつ ーー つい ーーー つ ーー マー ムーー ュ ーー 


う が 、 こ の 時 代 か ら 、 そ ん な 突 色 的 出 現 が ゲー ム ソ @⑯ ド ン フ ァ ン ショ ン を 和 用 デー ビー ソフ ト % 65 人 

フト 、 と り わ け ア ダル ト も の に し ば し ば 見 られ る よう に @ ト ライ アン グル ・ 美女 と いう も の は 、 と ん な 所 で も 美しく 見 え 
な っ て くる の で ある 。 な ぜ ア ダル ト な の か 、 な ど と い ジャ ング ル る こと を 証明 し て くれ た の で ある アス キー 
3 考え 方 は も は や な 〈、 そ れ ぞ れ の 発想 で 作り し た 

的 な ゲー ム ソ フ ト が 、 結 果 的 に アダ ルト に な っ た と 私 は - 5 が 4 を て と いう プレ イボ ー イ ・ 

分 析 し て いる の で ある 私 の 研究 も 急 に ここ で 狗 展 し た @ エ ミー ニュ アル の 元祖 作品 / ア スキ ー P54 才 照 
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所 = ーー te 
人 @ 秘 課外 授業 編 


@ オ ラン ダ 妻 は 電気 。 当 の RRG に 仕上 げた 。 まさ ! 
ウナ ギ の 夢 を 見 る か ? ルト は 進化 し た の で ある 。 
12 氏 ビ ー 必 グ ・ ャ ン ル 多様 化 の 時 代 、 パ ズル は その 中 て # 
ML 最高 の 充実 度 を 誇っ て いた ボー ステ ッ ク 


世 が お 矢 様 
を 意識 


2 @ コ スモ エン ジェ ル 


@ ト ワイ ライ ト ゾ ー ン グレ イト eP.50 参 照 


ホラ ー と ムフフ を 上 手 に ミ ス 
人 @ 妖 姫 伝 楽し い ムフフ ホラ ー の 基準 作 ? GRAY_ 


フフ AV( は 本 本 に が 男女 の 体 
⑯ ル ナシ ティ 殺人 事件 24、 和仁 入 トー リー ー が 秀信 プ パス カル II 


ト 、 > ぽ さ が 洒 謎 2 ロリ ー タ 物 。 ソ フト ムー 
人 @ 幻 夢 の 城 で まとめ られ て いる / チャンピオン ソフ ト 


の > デジ タイ ス ・ ヌ ー ド 路線 を 突っ 走る 。 ス ピー 
@ ザ ・ メ イズ ド が 必要 な 迷路 脱出 は 大 変 / ト レー サー ズ 


4 


ギャ グ タ ッ チ の 会 話 は ゆか グラ フィ ッ ク 


介 ぶ ふえ あ り い て いる な か な り リマ ン ガ に 近づく / ノ フェ アリ ー テ ー ル 


人 信 美 し き 獲 物 た ち I[ グレ イト @P.39 参 照 


人 @ 詞 奈 だ フェ アリ ー テ ー ル @P.43 参 照 
ほっ と ミル ク ご フェ アリ ー テ ー ル @P.26 参 照 
信 あ ぶな い 女 性 心理 学 入門 フェア リー テー ル @P.45 参 照 


@⑱ ダ ブル ・ ヴ ィ ジ ョ ン ハ ー ド 


寺 、 語 当 性 風俗 の 町 ・ 新宿 区 舞 伝 町 を 舞 合 に スリ ル と 
いけ に え の 街 SAETE ST 


仙 ロ リー タバ イオ レン ス スタジオ パン サー eP.46 参 照 
7 プ  @ プ レイ メイ トグラフ ィ ッ ク 集 / チ ャ ン ピ オ ン ソフ ト eP.31 参 照 
@ 大 和文 際 較差 。 ピン グー 人 


ピク ター 音楽 産業 


@ ラ ブリ ーGAL 
8 @DNA( ド ナ ) テー 


き 委 一 スッ キ 


仙 MAJO サ ジジ ドラ 2 プラ タート 
久 悪 女 伝説 II ドッ ト 企 画 @ P.22 参 照 


MS X 2 版 ム フフ 。 外 人 さ 


プレ イメ イト 86 
@ ラ ブフ チェイサー チャンピオン ソフ ト @P.16 参 照 


信 バ ズル で デー ト アニ メー ショ ン に ドキ 『 キ プラ 
人 @ 華 月 な る えろ ちっ 〈 め も りー ドッ ト 全 画 WP 
リア ル な 5 手 の 動 


リッ プス ティ ッ ク だ フェ アリ ー テ ー ル P34 
@⑱M( マ ドン ナ ) の 誘惑 ドッ ト 企 画 @ P.41 参 昭 


人 @ 天 使 た らち の 午後 II 業 み AMWG な ら こ の 一 作 ヶ ニー キャラ 、 ス トー 
美奈 子 と も 天下 一 品 / ャ スト @P.I8 金 照 
11 @ 学 園 物語 グレ イト eP220 参 照 


s ヽ 目 の H コ ミッ ク バ パソ コン 版 。 ギ ャ グセ ンス 
@ ス カボ ン 探 険 隊 か ムフフ ソフト の 上 PS 


ょ 


Fs モノ クロ 面 画 が 妙 ! ル 。 ム フフ を 大 マジ 

@ ザ ・ 病 院 〆 に や る と こう な る 見 本 的 AVG PSK 
@⑱ カ イン ドゥ ) 5 ce 

12 ギャ ルズ わい き 度 も UP し た 口説 き 一 * 続 細 ハ 


に 当たる と デジ タイ ズ ・ ヌ ー ド が 


ヽ Se あみ だ クジ に 当たる と f 
@ コ ゴー ルデン ・ バ ッ ク ドン / 究極 の ホピ ビー ソ フト カ 


久 東 京女 子 高生 見 て 楽し い 女子 高 制服 カタ ログ ・ パ ソコ ン 版 
セー ラー 服 入 門 全 3 巻 セッ ト ャ スト ・ フ ェ ア リ ー テ ー ル 


パソ コン ゲー ム 初 の デジ タイ ズ 面 画 導入 パ ズ 
ル 。 業界 に 衝撃 を 与え た / ウ イン キー ソフ ト 


象 シ ョ ッ キ ンク 
クロ スワ ー ド 
信 そ の 後 の 鹿 子 ち ゃ ん / 広 栄 商事 % P.40 参 照 


SF ムフフ アド ベン チャ ー の 名 作 / な ん と 


@ エ リカ いっ て も エリ カ の 美 し さ は 二 重 九 / ジ ャ スト 


か わい い 女の子 オン パレ ー ド 。 ア イコ ン で ム フ 
フ プ コス モス ・ コ ンピュータ ー@P.28 参 照 


人 聖女 伝説 


次 アダ ルト ソフ ト 喝 の 近代 と 言え る 「 つ っ こみ 紀 」。 こ の 
7 、 8 月 の 空自 は 何 を 意味 し て いる の で あろ うか 。 プ ロ 
グラ マー が 夏 の バカ ンス を 取っ た と も 解釈 で きる が 、 私 
は も っ と 別 の 見 方 を と っ て いる 。 物 事 が 進化 する た め に 
は 、 必 ず エ ネル ギー が 必要 に な る と いう こと で ある 。 ア 
ダル トゲ ー ム も ここ で 過去 か ら 脱皮 し 、 進 化し な けれ ば 
な ら な い 何 ら か の 理由 が あっ た に 違い な い / この 空白 
の 後 の バ クハ ツ ぶ り を 見 れ ば 、 そ ん な 解釈 が 生ま れ て き 
て 当然 で あろ う 。 そ の 理由 と いう の が 、 上 果たし て 社会 的 
な も の か 、 制 作者 の 個人 的 な もの か は 未だ に 解答 が 出 て 
いな い 。 い ずれ に し て も 、 脱 皮 し た 新しい アダ ルト の 世 
界 が こう し て 現在 の 黄金 期 に 発展 し て いっ た の で ある 。 
紀 . = コ 


信 177 レイ プ が 目的 と いう こと で 、 社 会 問題 に も な 
た 話題 の 作品 デー ビー ソフ ト @P60 参 照 


@ シ ン デ レラ ベル デュ ー グ 全 流 通 
ー グラ フィ ッ ク は それ ほど で も な い が 、 
信 悪 女 伝説 の ムフフ ソフ ト で あっ た ドリー ム 人 


ソー プラ ンド スト ー リ ー プ ハー ド @P.52 参 照 


昌 ⑯ ビ ピー プ シ ョ ー ト レー サー ズ eP.36 参 照 


⑯ ク リス チー ヌ 生 和 が 2 フフ ケー マー の 本 を 時 PS 
@ 美 し き 獲 物 た ち プ グレ イト @P.38 参 照 
⑱ ザ ・ ピ ー ピ ング グ ノ 全 流通 

LC ED NGHH44A5V で 4 
人 @ 全 国 ナ ン パ 修行 / 全 流通 
⑱ くり いむ レモ ン ン ジャ スト eP224 参 照 
@ ボ ポ ボップ レモ ンプ チャ ン ピ オ ン ソ フト eP.48 参 照 
寺 理 交 層 た っ ( KA No 
アマ ゾネス 主 に キズ 。 マ ジ 泊 向き か / ス ター クラ フト 
切 ⑥ ロ 説き 方 教え ます プ ハ ー ド e P.56 参 照 
@ 美 少女 写真 館 プ ハー ド @P.30 参 照 

1 @ ロ リー タ 姫 の 絵日記 / パ スカ ル II @P.42 参 照 


皆様 の 御 協力 に 深く 感謝 いた し ます 
@ ア スキ ー スタジオ パン サー 
谷 03(486)8080 谷 03(798)8760 
@ ウ イン キー ソフ ト @ チ ャ ン ピ オ ン ソ フト 
谷 06(388)8177 谷 05(365)9900 
@GRAY @ テ クノ ボリ スソ フト 
谷 03(360)35g3 谷 03(43)4471 
@ グ レイ ト 居 デー ピー ソラ トド 
谷 06(561)Ze11 人 011(851)7468 
@ 光 迷 @ ド ッ ト 企 画 
谷 044(B1)6861 谷 03(835)4959 
多 コ スモ ス ・ コ ツン ピュー ター トレー ザー スズ 
容 03(770)18g1 谷 045(251) 7513 
@ ジ ャ スト @ 日 本 ファ ルコ ム 
容 03(706)9766 谷 04g5(27)6501 


出 援 9 20 加 夢 た に 
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系 ん 声 も 人 
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絢 の 聞 し けり 
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エディ トリ アル 氏 衝 リボ ー ト 社 


アー トディ レク ト @ 門 脇 十 記 生 
コー ディ ネイ ト 亀 岡田 昭 


ライ ティ ング 欠 夢 太郎 風 衛 門 久利 美 
大 文 寺 覚 
レイ アウ ト 旬 根 本 裕三 郎 津田 和浩 
フォ ト 劉 梅田 玲 
イラ スト 氏 ば ぐり ん れこ コー タロ ー 


プロ デュ ー ス 劉 赤 羽 博 之 


カバ ー イ ラス ト 欠 高 根 玲 子 


SpECIAL 


作 N 多 ak 

り 束 い 利 た `= 
も の ) わ 美 グ わ 
最 せ ヨ Er 
還 ? も 8 
閣下 更 、 央 ん 
5 で か 

2 よ ! よ く 
本 3 ゞ ん 中! Mep # 
ゃ 化 か だ 芝 M 
っ 他 カ 議 
人 レノ 飲 カ ・ 7 3 


と じ 込 み ハ ガキ の ブレ ゼン ト 希 望 ゲ 
ー ム 欄 に 、1 欲 し い ゲー ム 名 (第 希 
望ま で ) 対応 機種 と メデ ィ ア (ディ 
スク ・ テ ー プ ・ ロ ム ) を 記入 し て 月 
末日 まで に 送っ て 下さ い (な お 、 発 表 
は 賞品 を 厳重 梱包 の うえ 、 発 送 を も っ 
て か えさ せ て いた だ きま す )。 

今回 の 夢 太郎 スペ シャ ル 、 気 に いっ 


禁 無 断 転載 1988 辰 【 失 


二 : の 
太 ア ソコン す うば あ ス ペ シ ャ ル @1 
愛読 者 プレ ゼン ト の 応募 方 法 


TMANKS 


アソ コン すう ば あ ス ペ シ ャ ル @@ 1] 協力 各 ソ フト メー カー リス ト 


さ 風 ナ い 夢 
し 衛 太 
N 問 ) 本 郎 
h "1 
符 うぅ 楽 の 
し 本 
生子 っ 人 


@ バ スカ ル 

谷 0534(47)3113 
@ ハ ー ド 

谷 03(B21)8447 
@5K 

谷 0888(40)1667 

人 @ フ フェアリー テー ル 
谷 03(200)9834 


※ ス タ ォ プ ルー へ の お 問合せ 
は ハガキ で お 願い いた し ます 


人 @ ス タ ジ オ プ ブルー 
〒|50 東京 都 渋谷 区 桜ヶ丘 29-24 
ジ デ ンス 605 


り 付 己 党 (』 | 生 衣 攻 


て も ら え た か な 今後 も アソ コン 編 
集 部 は 、 ま すま す 楽 し い 本 作り を 目指 
す / その た め の エ ネル ギー 源 は 、 キ 
ミ 達 の ハガキ 。 ドン ドン 書い て 出し て 
よ ネ / 八 ガ キ に は 、 住 所 (県 名 も ) と 
名 前 を 忘れ ず に 書く こと 。 ベ ペンネ ー ム 
も DK だ けど 、 本 名 も 必ず 書い て ちょ 
ー だ い ネ 。 編集 部 は 待っ て いる / 


慶子 ちゃ ん の 秒 密 
オー ルプ ブロ グラ ムリ スト 


ーー 大 賠 由 


衣 上 の 文字 は ^ だ い だ ん えん "と 読む の よ 。 め 
で た < く 終了 っ て 意味 ね 。 長 い 間 、 本 当 に ご 苦 
労 様 で し た (慶子 ) 


えっ と 、 こ こ か がら 
本 を ひっ くぐり 返し て 
裏表 紙 か がら 順番 に 

読ん て くだ さい ネツ 


「 塵 子 ち ゃ ん の 秘密 』 と は 
『 慶 子 ち ゃ ん の 秘密 』 は 、 ア ダル 
トゲ ー ム の 名 作 中 の 名 作 。 そ の 証 
拠 に 「『 そ の 後 の 慶子 ちゃ ん 』」 な ん 
て いう 作品 も 出 た り し た ん だ ( チ 
ャ ン ピ オ ン ソ フト さん こと は 関係 の 
な い メ ー カ ー か ら だ けど ……) 
この 作品 が 登場 し た の が 、 今 か 
ら 2 年 前 。 現 在 の ゲー ム ソ フ ト こ と 
比べ る と グラ フィ ッ ク 、 サ ウシ ド 
と も に 劣る の は 当り 前 だ けど ご 、 そ 
の 当時 の 数 多い ゲー ム の 中 で も 
『 慶 子 ち ゃ ん の 秘密 』 は ピカ ッ と 光 
る も の が あっ た ん だ 。 ス トー リー 
の 良さ ご 、 ゲ ー ム バラ ンス は 、 現在 
で も 十分 に 通用 する 。 

こん な すばらし い 作 品 の 全 プ ロ 
グラ ムリ スト を 完全 公開 で きる な 
ん て 、 と っ て も ラッ キー だ ナ … な 
ん て 思っ て いま す 。 今回 の 掲載 に 
あたっ て 、 多 大 な 協力 を いた だ き 
まし た チャ ン ピ オ ン ソ フト さん 、 
あり が と う ご ざ いま し た 。 
アソ コン 編集 部 スタ ッ フ ー 同 
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"『OOm.dat" 
(ADDRHESS ShC フ 0 


【ADDR] 


01 

F3 
F3 
E4 
6D 
01 
01 
01 
00 
7D 
5B 
01 
00 
51 
59 
EE 
68 
01 
02 
02 
38 
DA 
FF 
04 
04 
63 
00 
02 
2E 
62 
6B 
01 
DC 
38 
7D 
3F 
15 
00 
EE 
3F 
B3 
C7 
01 
3C 
FF 
00 
43 
13 
27 
00 
00 
62 
46 
5C 
00 
8D 
3D 
59 

00 
BO 
68 

00 
02 

F4 

2D 
02 
02 
2C 
1F 
FB 
49 
01 

11 

43 
62 
01 

C3 
7A 
01 

00 
D6 
3A 
00 
17 
4C 
44 
00 
B9 
65 
59 
71 

EE 
00 
01 

40 
68 
01 

58 
32 
01 

E3 
3C 
EE 
02 
F9 
B0 
11 

64 
01 


1438 
15B4 
16AA 
15FD 
15CF 
170A 
15C3 
14D6 
165A 
1445 
144A 
139D 
13E5 
149C 
13EO 
14CB 
148A 
141F 


C 60 01 40 2E 20 01 40 3C 01 7B 3C 10 01 40 2A1 
3 70 00 B5 73 70 01 D7 73 01 4B 80 70 FF 00 ?671 


"km どら.dat" 


(ADDRHESS ShC0 


{ADDR]i 
ーーーーーー+ 
C000 
CO010 
C020 
C030 
C040 
CO050 
CO60 
C070 
CO080 
C090 
CO0A0 
C0B0 
CO0C0 
CO0D0 
COEO0 
COF0 
C100 
C110 
C120 
C130 
C140 
C150 
C160 
C170 
C180 
C190 
C1A0 
C1BO 
C1cO 
cip0 
C1EO 
C1FO 
C200 
C210 
C220 
C230 
C240 
C250 
C260 
C270 
C280 
C290 
C2A0 
Cc2B0 
C2CO 
c2p0 
C2EO 
C2FO 
Cc300 
C310 
C320 
C330 
C340 
C350 
C360 
C370 
C380 
C390 
C3A0 
C3BO 
C3CO 
C3D0 
C3EO 
C3F0 
C400 
C410 
C420 
C430 


01 CD D2 37 3E 03 CD C9 37 11 00 D7 06 0A CD 3A 5E4 
37 C9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 100 


"kdm 1 .dat" 
(ADDRESS ShC フ 0 0 -ShE 1BE) 


“duSKr.ODJ" 
(ADDRESS ShE150 -&hE1A1) 


H 
1! 
1 
! 
・ 
H 
H 
H 
1 
1 
H 
1 
! 
H 
1 
1 
! 
D 
i 
ュ 
H 
ャ 
H 
1 
! 
1 
ュ 
H 
H 
H 
1 
H 
H 
H 
H 
1 
1 
・ 
H 
H 
H 
H 
1! 


1 FF 30 30 FF FE FF FC FF FF CF 03 FF FF 30 FF FF 
! FC FC 03 CF CF 30 FC FF 03 CF FF 30 00 00 00 00 
: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


"KSym.dat" 
(ADDRESS hC10 0 0-&hCBBF) 


"tlle.dat" 


(ADDRESS ShE240 


【ADDR]! 


H 
1 
! 
1 
1 
! 
・ 
1 
1 
H 
H 
HI 
1 
1 
H 
1 
1 
1 
H 
1 
1 
1 
1 
1 
1 
1 
H 
1 
1 
1 
H 
1 
H 
1 
1 
! 
! 
H 
H 
H 
H 
1 
1 
1 
! 
・ 
1 
H 
H 


魔子 ちゃ ん の 秘密 


文 便利 な MEDIT を 活用 し て ね // 


IN っ ファ イル ネー ム の 決定 
Lー デ ィ ス ク E 上 の ファ イル を メモ リー に 読み 込む 
ご どー メモ リー の 内 容 を ディ スク に 書き 込む 
Fー デ ィ レ クト リー の 表示 

Eー メ モリ ー の 内 容 を 作成 (マシ ン 晋 入力 ) 


(ADDRHESS ShBA 0 0-&hBE ヨ ら ) 


"k 1 .dat" 
(ADDRESS ShC7 0 0-ShDO0 1 


H 
1 
1 
H 
ュ 
! 
ュ 
1 
0 
・ 
1 
1 
D 
H 
・ 
D 
H 
1 
1 
H 
H 
H 
1 
1 
ュ 
1 
H 
1 
H 
1 
1! 
1 
1 
H 
H 
・ 
1 
! 
r 
! 
1 
! 
! 
ュ 
! 
i 
! 
1 
1 
! 
1 
1 
r 
1 
1 
1 
1 
1 
! 
H 
H 
1 
1 
H 
1 
H 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
H 
1 
1 
1 
1 
H 
H 
1 
ュ 
! 
1 
H 
H 
1 


EEEECEFEECFEFE は PEFCEFEEEPEEEEEEEEEEEEEEEEEEEEEEEE ーー 和 EEEEFEEEEEEFEPPPF は EPCEEEEE だ まま 


0.64,.274.60,.278,.64.281,.68,279,72.271.75,.267,.79,267,83,270,.88,281,.94,-2,-2 
420 DATA -1,-1,281.70,.289,72,.297.80,289,.87,.284.90,282.94.283.98,287,102.287,101, 
292,107,.304,114.310,117,-2,-2 
422 DATA -1,-1,304,49,.304.51.312.54.314.57,.315,.63,.313.68,309,.69,310.69,316,72,32 
3.74.344.74.351.75,.359,.76,367.82.377,.89,384.95,.393.98,402.102,409,.107,-2,-2 
424 DATA -1,-1,339,114,.331,112.324,110,.314,.105,311,101,.309.99,.306,.98,310,100,312 
>102.323,115,-2,-2 
DATA -1,-1,398,108,.381,104,380,103,.376,.99,.362.90,-2,-2。-5,-5,-5,-5 
DATA -1,-1.289,.51,284,51,-2,-2 
DATA -1,-1,295,49,299,48,-2,-2 
DATA -1,-1,305,.52,.302,.53,298,53,-2,-2 
DATA -1,-1,289,55,286,.56,281,57,-2,-2 
DATA -1,-1,.301.55,305,.56,307,.57,.305,58,-2,-2 
DATA -1,-1,298.58,298.59,299,.59,.300,.59,-2,-2 
DATA -1,-1,306,60,303,62,304,.64,309,63,309,61,307,60,306,60,-2,-2 
DATA -1,-1.293.69,299,.70,306.70,-2,-2 
DATA -1,-1,292,.82,300,84,.313,89,322,.87,330,87,.339,88,340,86,345,81,347,79,33 
7.76,」324.74.323,.73,-2,-2 
446 DATA -1,-1,291,.84,.297.86,310.91.309.95,.310,.99,314,104.320,102,.334.95,341.91, 
350,89,358,89,362.90,366,85,366,82,.365,80,351,.78,346,76,338,74,-2,-2 
448 DATA -1,-1,.306,78.309,.78,314,79,-2,-2 
450 DATA -1,-1,.363,106,.365,107,-2,-2,-5,-5,-5,-5 
452 DATA -1,-1.316,.38.329.35,.349.31.357.31.359,28.364.29,365.32.375,.40,381,45,.38 
8,.53.392,.56,.400,.66,405,72.411,.75,412,.78,406,77,404,.76,.399,.78,385,80,372,83,-2,-2 
454 DATA -1,-1,.247.45,.234.46,215,47,209,49,198,.50,192.52,185,.52,178,.53,181,58,18 
5.59,195,.69,198.71.198,.74.212.90,.219,.98,222,.100,.220,102.220.105,.222.107,.229,104, 
243,102.264,100,281,95,-2,-2 
456 DATA -1,-1.368,.47.357,48.349.52,.355,45,.344,.49,336,.54.336,.55,-2,-2 
458 DATA -1,-1.224.73.240.69,251.71.238,.76,246,73.253,.73.254.75.240。81,-2,-2 
460 DATA -1,-1.392.97,419,.89,423.91,420,.90,412,.93,406,.97,415.95,408,100,421.97,4 
60,94,-2,-2,-5」-5,-5,-5 
999 " 
1300 #MBOX 
1310 VIEW(0,0)-(639,135) :RBYTE( BC ) :VIEW(0,0)-(639,199 ) :RETURN 
2000 GOSUB 70:GOSUB 80:A$=" マ タ " へ ヤ ヲ サカ ` シャ スカ (y/n)":GOSUB 50 
2010 Y$=INKEY$ 
2020 IF Y$="Y"OR Y$="y"OR Y$=" ン "THEN 10 
2030 1TF Y$="N"OR Y$="n"OR Y$=" ミ "THEN 2050 
2040 GOTO 2010 
2050 IF MA=0 THEN PRINT :A$=" マ タ ~ ヒ ツ ヨ ウナ モノ ヲ サカ " シテ イマ セン 。":GOSUB 50:FOR IL=0 TO 3000: 
NEXT:GOSUB 80:GOTO 100 
2060 PRINT :A$=" ア ナタ ハ MATCH ヲ ヒン トニ ショ ウナ ンカ イカ " ン へ トン タ " ! 1" :GOSUB 50:GOTO 3070 
3000 GOSUB 70:GOSUB 80:A$= "マタ" へ ヤ ヲ サカ "シマ スカ (y/n) ":GOSUB 50 
3010 Y$=INKEY$ 
3020 IF Y$="Y"OR Y$="y"OR Y$=" ン "THEN 150 
3030 ITF Y$="N"OR Y$="n"OR Y$=" ミ "THEN 3050 
3040 GOTO 3010 
3050 IF MA=0O THEN PRINT : A$= "マタ ^ ヒッツ ヨウ ナ モノ ヲ サカ "シテ イマ セン 。":GOSUB 50:FOR 1=O TO 3000: 
NEXT:GOSUB 80:GOTO 150 
3060 PRINT:A$=" ア ナタ ハ MATCH ヲ ヒン トニ ショ ウナ ンカ イカ " ン へ トン タ " ! 7 "7:GOSUB 50 
3070 A$="DTSK か セッ ト サ レ テイ タ 5 う Push Any Key":GOSUB 50:A=USR( 0 ) :S$=INPUT$( 1 ) 
3080 CLS:RUN "k3.bas" ii::! 
4000 READ A,B,C,D:TF A=-5 THEN RETURN 
4010 LINE(C+TX,D+TY ) -(C+TX,D+TY ) ,COL 
4020 READ E,F:1F E=-2 THEN 4000 
4030 LINE-(E+TX ,F+TY ) ,COL:GOTO 4020 
65000 *GCURSOR : SCREEN 0,0 
65010 INO=INP( 0 ) : IN1 =INP( 1 ) : IN8=INP( 8 ) 
65020 TEF IN1=254 AND (IN8=191 OR IN8=159 ) THEN Y=Y-10 ELSE IN1=254 THEN Y=Y-1 
:GOTO *LE 
TE TITNO=239 AND (IN8=191 OR IN8=159 ) THEN X=X-10 ELSE TN0=239 THEN X=X-1 
*LE 
TF INO=191 AND (IN8=191 OR IN8=159 ) THEN X=X+10 ELSE IN0=191 THEN X= 双 +1 
* ネ LE 
TF TITNO=251 AND (IN8=191 OR IN8=159 ) THEN Y=Y+10 ELSE TN0=251 THEN Y=Y+1 
*LE 
TEF IN1=127 THEN X=X+4:Y=Y+3:SCREEN 0,PEEK(&HEF272 ) : RETURN 
*LE:1TF X<0 THEN X=0 ELSE ITF X>630 THEN X=630 ELSE 1F Y<O THEN Y=0 ELSE ITF 
THEN Y=130 
A=USR( 0 ) : PUT(X,Y) ,GC%,XOR :PUT(X,Y) ,GC%,XOR:GOTO 65010 
DATA 7,5,4112,4112,4112,-258,4350,4112,4112,16 
RESTORE 65080:FOR IL=0 TO 9:READ GC%( 1 ) : NEXT : RETURN 


0 

140 CTRCLE(488,59) ,15,1,,,.75:PATNT(488,59) ,1:CTIRCLE(488,59),10,7,,,.75:PATNT(48 
8,59 ) , 7:CIRCLE(487,44) ,25,1:PATNT(487,44 ) ,1:CIRCLE(487,48) ,20,7,」,.4:PATNT(487,4 
が 

145 CIRCLE(480,40),6,0,,,.95:PAINT(480,40) ,7,0:CIRCLE(492,40),6,0,,,.95:PAINT(49 
2,40) ,7,0:CIRCLE(485,40 ) ,3,0:CTRCLE(489,40) ,3,0:CTRCLE(486,45) ,4,0:PATNT(486,45) 
ぅ 0:GOSUB 40 

146 LOCATE 0,15:TF RR=1 THEN A$=" ア レ ! ! ケイ コチ ャ ンカ " イナ イ ! 1 "7":GOSUB 50:PRINT:A$=" サ テハ 、 サッ 
キノ 人 カケ * カ " 。.。。 "EGOSUB 50:PRTNT:A$= "シカ タカ ^ ナイ ":PRTNT :A$=" ヘ ヤラ シラ へ ^ テ 、 テカ " カリ ヲ サカ "ソウ "iiG 

OSUB 50:GOSUB 70 

147 TF RR=1 THEN GOSUB 80:A$="Graphic Cursor ヲ テン key テ " イト "ウサ セテ 、":GOSUB 50:PRINT 
:A$= リ シラ へ "タイ トコ ロ テ * Return key ヲ オシ テク タ ~ サイ 。" :GOSUB 50:PRINT:A$=" テ ン key ハ Shift key ト 
ヘイ ヨウ スル ト ハヤ ク ナ リ マス " : GOSUB 50:GOSUB 70:GOSUB 80 

148 RR=0 

149 Xs330:Y=70 

150 CLS:GOSUB *GCURSOR 

155 IF PB=1 AND(X>150 AND Y>109)AND(X<159 AND Y<113) THEN GOTO 400 

160 1F SB=1 AND(X>480 AND Y>58 )AND(X<494 AND Y<64 ) THEN GOTO 200 

165 ITF MB=1 AND(X<126 AND Y<132)AND(X>101 AND Y>122) THEN GOTO 300 

170 PRINT :A$= "イロ イロ サカ ~ シタ カ " ナニ モ テ ^ テキ マセ ン 。":GOSUB 50:GOTO 3000 

200 ' サイ フ 

210 POKE &HF261,&HFF 

211 OUT 104,0:GOSUB 20:GOSUB 30:BC=1:GOSUB *MBOX 

220 LINE(440,12)-(224,32) ,0:LTINE-(224,128) ,0:LINE-(448,112),0:LTNE-(448,8),0:LTN 
E-(192,16),0:LINE-(192,120),0:LINE-(224,118) ,0:PAINT(432,14) ,2,0:GOSUB 40 

240 LOCATE 0,16 :A$= "サイ フカ *` テ * テキ マシ タ 。 モッ テ オキ マス 。" :GOSUB 50:SB=0:GOTO 2000 

300 ' マッ チ 

302 OUT 104,0:MA=1:GOSUB 20:GOSUB 30:COLOR=(4,0 ) : BC=1 :GOSUB *MBOX 

304 RESTORE 312:TX=0:TY=0:COL=4 :GOSUB 4000 

306 RESTORE 306:FOR 1=1 TO 8:READ X,Y,C:PAINT(X,Y) ,C,4:NEXT:POLL 30,134,17:DATA 
286,8,5,285,14,.6,471,85,7,324,64,2.373,55,2,375,71,2.328.79,2,132.37.0 

308 PAINT(478,86),0,4:POLL 78,134,15:FOR 1=0 TO 1500:NEXT:GOSUB 10:LOCATE 0,.16:A 
$=" マ ッ チ テス 。"「:GOSUB 50:PRINT:A$="coffee & restaurant .、「JJ」 ト 、 カイ テア リマ ス 。" : GOSUB 50:PR 
TNT : A$=" ハ "ショ ハ 、 「 シ ョ ウナ ン カイ カ " ン 」 ト 、 アリ マス 。" : GOSUB 50:MB=0:GOTO 2000 

312 REM 

314 DATA -1,-1,128,31,288,5,479,79,312,109,128,31,128,53,312,133,480,102,480,79, 
312,109,312,132,-2,-2 

316 DATA -1,-1,313,103,458.78.287,11,152.33,316,103,-2,-2 

318 DATA -1,-1,252.73.374,51,404.63,409,66,410,.69,408,72,400,74.392.75,384.75,37 
3,73,369,71,369,70,370,69,374.68,379,68,381,70,381,70,.379,71.377.72.374.72.373,7 
2」-2」-2 

320 DATA -1,-1,.360,.53,408,72,-2,-2 

322 DATA -1,-1,325,60,359,73,362,75,363,77,362,79,360,81,355,82,352,.83,345,84,33 
6,84,328,83,323,81,321,79,322,79,326,77,332,.77.335,78,334,80,332,81,327,81,323,8 
1」-2,-2 

324 DATA -1,-1,312.62,359.81,-2,-2 

326 -1」-1.257.75.308,.66,-2,-2 

328 ー1」-1,.262.77.312.68,-2,-2 

332 ー1」-1,341.90,433,」74,-2,」-2 

334 ー1,-1,349,.92,439,76,-2,-2 

336 -1。-1,476,79,476,100,315,129,315,109,-2,-2,-5,-5,-5,-5 

400 

402 &HF260,&HFF:OUT 104,0 

403 GOSUB 20:GOSUB 30:BC=1:GOSUB*MBOX : COLOR=( 4 ,0 ) :COLOR= (6,7 ) 

404 LINE(151,36 ) -(441,5),4:LINE-(484,103) ,4:LINE-(195,134) ,4:LINE-(151,36 ) , 4:PAI 
NT(438,8) ,7,4:LINE(161,39)-(434,10),4:LTNE-(474,101 ) ,4:LTNE-(201,130) ,4:LTNE-(16 
1,.39) ,4:PAINT(431,13) ,5,4 

405 RESTORE 414:TX=3:TY=1:COL=4 :GOSUB 4000:PATINT(290,.34) ,0,.4:POLL 32.76,1:PATNT( 
282,74) ,0,4:POLL 70.96,14:PATNT(292,50),0,4:POLL 48,118,30 

406 RESTORE 428:TX=3:TY=1:COL=4 :GOSUB 4000:PATINT(352,81) ,6,4:PAINT(306.63),1,4:P 
AINT(306,63),2,4 

408 RESTORE 408:FOR 1=1 TO 9:READ X,Y:PSET(X,Y) ,1:NEXT:DATA 
98,335,95,341,92,347,90,353,89,359.89,363.89' 6 2 
410 RESTORE 452:TX=0:TY=0:COL=4 :GOSUB 4000:PAINT(361,31),7,4:PAINT(243,47),7,4 
411 GOSUB 40:GOSUB 80:LOCATE 0,16:A$=" ナ 、 ナ 、 ナン トイ ウ コ ト テ * ショ ウ カ ! 1! ":GOSUB 50:PRINT:A$=" 

うか セミ ヌー ト " ノ シャ シン カ *" テ * テキ マシ タ !!":GOSUB 50:PRTNT :A$=" ト ッ テ オ キマ ス 。 " : GOSUB 50:PB=0:GOT 
414 REM 

416 DATA -1,-1,356,75,361,73,365,68,365,66,360,.61,356,58,346.57,337.56,327,54,32 
2,52.321.48,319,44.315,40,.308,35,297,33,288.32.279,.33.273.35,266.35,.257.37,247,4 
2,241.50,242.57.249,65,262.72.271.75,-2,-2 

418 DATA -1,-1,307,50,.301,48,294,49,291,47,288,46,288,50,283.51.277.55,274.60,27 


6050 'Y 

6060 WIDTH 40,20:CONSOLE 0,20,0,1:SCREEN 0,.3:LOCATE 10,5:PRINT "リセット シテ 、Disk ヲ サイ ショ 
カラ " :LOCATE 10,7:PRTINT "LOAD シテ クタ サイ." :CLS 2:SCREEN 0,0:GOTO 6090 

6070 ?N 

6080 SCREEN 0,3:COLOR 3:CLS:LOCATE 11,.8:PRINT" サ ヨウ ナラ OOO _ OO の ⑦⑳ ...":CLS 2:SCREEN 
0,.0 

6090 GOSUB 250:COLOR 7,0:END 

7000 !) 〇 O 

7010 CIRCLE(36,100),33,4,.7,3.7:CIRCLE(84,100),33,」4.5.6,2.5:LINE(8,109)-(60,132) 
ヵ 4:LTINE-(111,110) ,4:LINE(4,100)-(116,100),4:LINE(27,118)-(94,118) ,4:RETURN 
7020 PAINT(59,92 ) ,2,4:RETURN 

7030 PAINT( 59,101 ) , 2,4 :RETURN 

7040 PAINT(59,119) ,2,4:RETURN 

10000 ' 還 還 還 間 間 間 間 間 間 間 間 間 間 間 間 症 症 本 暗 1NSTR Sub routineS ニー ニー ーー デー き テ Aya 
10010 COLOR 6:PRINT"> る きこ ROLOR マイ 

10020 LINE INPUT C$:ITE C$=" "THEN D=0:M=0:GOTO 10090 

10030 DO=56 :RESTORE 10100:D=0:FOR 1T=1 TO DO:READ DO$ 

10040 IF INSTR(" "+C$,」" "+DO$ ) THEN D=1:1=DO 

10050 NEXT 

10060 ME=58:RESTORE 10160:M=0:FOR 1=1 TO ME:READ NE$ 

10070 ITF INSTR(" "+C$,」" "+ME$ ) THEN M=T:1=ME 

10080 NEXT 

10090 RETURN 

10100 DATA ヌカ も, ヌカ " スト ル 」 ヌ ー ト ~ 」 ハタ" カ , ヤ リタ イ , SEX , サワ ル , ウツ クシ イ , キス 

10110 DATA イシ " ル , ナ メル , マ サク " ル 。 モ ム , イラ ウ , ソウ ニュ ウ 。 スウ ササ ヤク 。 タ ~ ク 。 ネ カセ 

10120 DATA カム , ハ リセ, イル ,TN,ON, ノル, A,B,C, ツ カウ 

10130 DATA アイ フ , へ " ッ テ ィ ンク , ナ テ ~ 」 フ レ , サス, ヒラ , ノ ソ " ミル ホモ, レス ~ 

10140 DATA SM, エ スエ , シャ クハ 。 フェ ラ , ス ワッ フ , SWAP , ハ ーッ ク 。 シ ックス ナ , 69 , マ ツ ハ ~ 

10150 DATA ヤラ セロ , サ セロ , イ ッ ハ ? ツ カフ" ヤセ , ヤ ル , メ クル 

10160 DATA ウエ 。 シ ャ ツ 。 フ ク , ミ タイ 。 ヌメ ケ * 。 シ タイ , セッ クス 。 ナ テ ” ル , キ レイ 。 ク チ ツ ” ケ 

10170 DATA ムネ 。 も セナ カ ,。 ク ヒ "” 。 ア シ , コ > 。 ア ザコ 。 カラ タ ” 。 ミミ モト 。 キミ 。 ケ イコ 

10180 DATA フ " う , ハ " ン テ ィ 」 ハ " ン ツ スキャン テ ィ , シ タキ 」 シ タ 」 へ ~ ロク チ , オ ン ナ , ホ ホ 

10190 DATA コン ト * - サッ 。 コ " ム 」 ヒ ニン グ " ユヒ "ツメ 。 マ タウ テ " 」 ミ ミュウ ナシ“ 

10200 DATA フトモモ, カミ, へ ? ニシ リハ "スト , チ ク ヒ 」 ニ ュ ウ ト 」 ヘソ ハラ ュ ア シ 

10210 DATA り ワキ, か カタ, アナ, スキ , ス テキ , ク リト リ 。 も セッ フ * ン ,KTSS 


~『OOIm.DasS“ 


1  !TIN ROOM PROGRAN save"room.bas" 
2 CLEAR ,&HB9FF:DEF USR=&H35D9 :ON STOP GOSUB 15:STOP ON:POKE &HF260,.0:POKE &HF26 
1.0 
3 DIM GC%(9 ) :GOSUB 65100 
4 POKE &HEEAB,0:POKE &HEEAC ,&HBA: POKE &HEEA8,&H70 :POKE &HEEA9 ,&HBA 
5 POKE &HEEA2,&H30 :POKE &HEEA3 ,&HBC : POKE &HEEA5,&H10 :POKE &HEEA6 ,&HBB 
6 POFRE &HEEB7 ,&H90 :POKE &HEEB8 ,&HBC 
7 FIELD #0,12 AS ST$:ST$=DSKT$(1,1,.39,14) :FOR 1T=1 TO 12:POKE &HF29F+T,ASC(MTD$(S 
T$, エ ,1 ) ) : NEXT 
8 MA=0:RR=1:SB=1 :PB=1 :MB=1 
9 BLOAD "kg.obj":BLOAD "tile.dat":BLOAD "room.dat" 
SCREEN 0,PEEK(&HF272 ) :WIDTH 40,.20:CONSOLE 14.6.0,1:GOTO 100 
A=&HEF2A0:CALL A 
FOR IT=0 TO 7:COLOR=( [ , 1 ) : NEXT : RETURN 
COLOR 7,0:RBYTE( 0 ) : RETURN 
WIDTH 40,20:CONSOLE 14,6:RETURN 
FOR M=1 TO LEN(A$) :B$=MTD$(A$,M, 1 ) : IF B$=" "THEN PRINT" "::GOTO 52 
BEEP 1:PRINT B$::BEEP 0 
FOR 1T=0 TO 29:NEXT:NEXT :RETURN 
LOCATE 0,19:COLOR 6:PRINT"SPACE key ヲ オシ テク タ " サイ 。": ECOLOR 7:TF INKEY$=" "THEN R 
ETURN ELSE 70 
80 CLS :RETURN 
100 ' ROOM 
105 OUT 104.0:GOSUB 20:GOSUB 30:GOSUB 40:BC=7 :GOSUB *MBOX:LINE(0,135)-(639,135) , 
3:LINE(195,20)-(115,0) ,1:LINE(447,20)-(525,0) ,1 
110 VIEw(195,20)-(447,21 ) :RBYTE(0) :VIEW(195,22)-(447.91) :RBYTE(1) :VIEW(319,21)-( 
323,92 ) :RBYTE( 6 ) :VIEW(0,0)-(639,199) 
115 LINE(125,135)-(203,92) ,3:LINE-(448,.92) ,3:LINE-(524,135),3:PAINT(320,93),3 
120 TSET &HC700,5:WBYTE(&HC7C1 ) : TSET &HC7DA,0 
125 LINE(450,104)-(448,108) ,2:WBYTE(&HCD9B ) 
135 CTRCLE(244.125) ,15,0:PAINT(244,125) ,5,0:CTIRCLE(268,94 ) ,2.0:CIRCLE(272.95) ,2, 


ス * カシ ィ ィ ィ . . .。 OO" :GOSUB 220:GOTO 4225 
4255 IF(D>=31 AND D<=35)OR D=14 THEN A$="OO フッ ウゥ ウーー ン OO":GOSUB 220:Q=3:GOTO 4225 
4260 TE M=56 OR M=53 THEN A$="OO マタ 、 ムリ ョ OO" :GOSUB 220:GOTO 4225 
4265 IF(D=12 OR D=22 )AND(M=11 OR (M>=45 AND M<=47 ) ) THEN A$=" イ 、 イィ 。.。。 "EGOSUB 220 
:W=3:GOTO 4225 
4270 ITF D>=24 AND D<=26 THEN A$=" ソ ン ナ 、 マタ "イヤ!! 7":GOSUB 220:GOTO 4225 
4275 TF D=6 OR D=7 OR M=7 OR(D>=51 AND D<=53 ) THEN A$=" ソ ン ナ イイ カタ 、 イヤ !! "EGOSUB 220: 
GOTO 4225 
4280 ITF(D>=1 AND D<=3 ) AND(M>=22 AND M<=26 ) AND Q=3 AND W=3 THEN A$="OO ヤ サ シ ク シテ ネ * 〇 
し が ":GOSUB 220:GOTO 4300 
4285 ITF(D>=1 AND D<=3 ) AND(M>=22 AND M<=26 ) THEN A$= "OO マタ "ソン ナ キ フ ナン シー ャ ナイ フー 。。。 「: 
GOSUB 220:GOTO 4225 
4290 A$=" セ ンプ" 、 ヌ メカ "セテ ー..。":GOSUB 220:GOTO 4225 
4300 'P OFEF 
4305 OUT 104,.0:BC=3:GOSUB *BACK:GOSUB 7000 
4311 1TSET &HCFEO,4:TSET &HD3FD,4:TSET &HD4E8,4:TSET &HD6AA,4:WBYTE(&HD57C ) 
4316 PAINT(114,41),0,4:POLL 4.78,4:PAINT(228,.8) ,0,4:PATNT(222.21),0,4:PAINT(142, 
26 ) ,0,4:POLL 2,138,30:WBYTE(&HD6 9D ) 
4318 GOSUB 70 
4320 GOSUB 10000 
4325 ITF(M>=41 AND M<=53 ) AND(D>=31 AND D<=35)AND W=4 THEN A$="OOO ヵ 、 カ ン シ " ルウ 。。 "EGO 
SUB 220:Q=4:GOSUB 7030:GOTO 4320 
4330 IF D=10 OR D=10 OR M=10 OR M=57 OR NM=58 THEN A$=" チ ュ !":GOSUB 220:GOTO 4320 
4335 TIF D>=36 AND D<=50 THEN A$= "ヘンナ 、 シュ ミネ !! ワタシ 、 フ ク ヲ キル !! 

":GOSUB 220:GOTO 1000 
4340 ITF(M>=31 AND M<=34 )AND(D=30 OR D=54) THEN A$= "アンシン ネ 。" :GOSUB 220:GOTO 4320 
4345 TEF D>=31 AND D<=35 THEN A$="⑦ ヘン ナ 、 キ フ " ン ニ ナッ テキ タワ リ 。。.⑦" :GOSUB 220:GOTO 4320 


4350 ITF(D=12 OR D=22 OR D=17)AND(M>=41 AND NM<=53)THEN A$="OOO ダメ 。 "EGOSUB 22 
0:GOSUB 7040:W=4:GOTO 4320 

4355 IF(D=12 OR D=22 OR D=17)AND(M>=38 AND M<=53 )THEN A$="OOO イヤ ... "EGOSUB 22 
0:GOTO 4320 


4360 IF D>=27 AND D<=29 THEN A$=" ゥ 99... "EGOSUB 220:GOTO 4320 
4365 TF(D=25 OR D=26 OR D=19)AND Q=4 THEN A$=" ス 、 キ き 、 ョ OOO OO O.... 
":GOSUB 220:GOSUB 7020:FOR 1=0O TO 3000:NEXT:GOTO 4400 
4370 A$=" ネ ェ 、 ハヤ クゥ OOO ":GOSUB 220:GOTO 4320 
4400 '80%! 
4405 OUT 104,0:BC=3:GOSUB *BACK:GOSUB 7000 
4411 TSET &HCFFO,4:TSET &HD3FD,4:TSET &HD701,4:TSET &HD6AA,4:WBYTE(&HD57C) 
4416 PAINT(114,41),0,4:POLL 4,78,4:PATINT(222.8) ,0,4:PAINT(222,21),」0,4:PAINT(142, 
26),0,4:POLL 2,138,30 
4418 GOSUB 70 
4420 GOSUB 10000 
4425 IF ((D=30 AND M=15)OR (D=23 AND M=16 ) ) AND Q=5 THEN A$="OO タダ 、 タ " メ ェ ェ ェ ェ ・・・・OO 
":GOSUB 220:GOSUB 7020:FOR 1=0 TO 2000:NEXT:GOTO 4506 
4430 TE D=10 OR D=27 OR M=57 OR M=58 THEN A$=" チ ュ !":GOSUB 220:GOTO 4420 


4435 TIF D>=36 AND D<=50 THEN A$= "ヘンナ 、 シュ ミネ !! ワタ シ 、 フ ク ヲ キル !! 
":GOSUB 220:GOTO 1000 
4440 IF(D>=31 AND D<=38 ) AND(M=37 OR M=16 OR M=56 ) THEN A$=" 〇 ソコ タ ~ ケ ハ 、 カン ニン シテ ェ 。・・・・ 
の" :GOSUB 220:GOSUB 7040:W=5:GOTO 4420 
4445 ITF D=30 AND M=15 THEN A$=" ⑦ アア ァァァ ァ -!! ⑦ ":GOSUB 


220:GOTO 4420 
4450 TF(D=12 OR D=17 OR D=22)AND(M=16 OR M=37 OR NM=56)AND W=5 THEN A$=" カ 、 カラ タ " カ 
~ トロ ケ ソ リウ ョ OOO_ OO O":GOSUB 220:Q=5:GOSUB 7030:GOTO 4420 


4455 TEF D>=31 AND D<=35 THEN A$=" モ 、 そり ウ 、 ユ ル シ テ ・・・ " :GOSUB 220:GOTO 4420 
4460 A$= "モウ 、 スコ ショ OOO "GOSUB 220:GOTO 4420 
4500 "100%!!! 


4506 OUT 104,0:BC=3:GOSUB *BACK:TSET &HCFFO,4:TSET &HD79A,4:TSET &HD6AA,4 
4510 PAINT(100,40),0,4:PATNT(77,63) ,0,4:PATNT(126,44 ) ,0,.4:POLL 15,93,4:PATNT(222 
ヵ 8),0,4:PAINT(222,21) ,0,4:PAINT(142,26),0,4:POLL 2,138,30 

4515 GOSUB 70:A$=" ア 、 ア アァ アーー ン ! イク ーーー! 1 "EGOSUB 220 

4520 FOR 1=0 TO 2000:NEXT:GOTO 5000 

5000 ' 還 還 較 UP 還 蘭 

5005 

5010 OUT 104,0:RBYTE( 0 ) :TSET &HD88C,4:POLL 18,199,30 

5015 WBYTE(&HDC1D ) 

5020 PSET(368,66 ) ,0:PSET(367,66),0:POLL 0,147,4 

5025 WBYTE(&HDC2E ) 

6000 WIDTH 40,20:LOCATE 26,4:PRTNT "モウ イチ ト *" スル ?":LOCATE 26,6:PRINT"y/n" 
6010 SURU$=TNKEY$ 

6020 IF SURU$="Y"OR SURU$="y"OR SURU$=" ン "THEN 6050 

6030 TEF SURU$="N"OR SURU$="n"OR SURU$=" ミ "THEN 6070 

6040 GOTO 6010 


1200 A$=" ト "ウス ルノー 2?" :GOSUB 220:GOTO 1090 
2000 ' 証 還 昌 KN2 男 証 較 
2010 OUT 104,.0:GOSUB 250:BC=3:GOSUB *BACK:COLOR=( 4。0) 
2020 TSET &HCA53,4 
2030 PSET(238,127 ) ,4 
2040 PAINT(297,.4),0,4:POLL 2,.56,4 
2050 WBYTE(&HCCF8 ) : POLL 9,133,30 
2060 WBYTE(&HCD25 ) 
2070 PSET(284,21),0 
2080 GOSUB 60:A$= "OO ウフ ッ ! ヌイ シ ~ ャ オッ ト 。" :GOSUB 220 
2090 FOR 1I=0 TO 1000:NEXT 
3000 ' 証 還 昌 KN3 回 較 
3010 OUT 104,0:GOSUB 250:BC=3:GOSUB *BACK :COLOR= ( 4 , 0 ) 
3020 LINE(0,139)-(639,139),4:VIEW(240,0)-(380,138 ) :RBYTE(0 ) :VIEW(0,0)-(639,199) 
3030 ISET &HCD32,4 
3040 PSET(260,31 ) , 4 
3050 LINE(279.23)-(280,23),4:LINE-(283,22 ) ,4 
3060 POLL 2,.137,.30:WBYTE(&HCFDE ) :POLL 2,34,2 
3065 GOSUB 60 
3070 GOSUB 10000 
3080 IF PEEK(&HF270)=255 THEN FOR 1I=0 TO 1500:NEXT : A$=" テ * モ 、 アナ タ 、 18 サ イ ミ マ ンタ ^ ッ タワ ネ 。 
":GOSUB 220 :A$= "ラフ" レッ スン ハ 、 オト ナニ ナッ テカ ラ う ネ 。 ":GOSUB 220:GOTO 6 
070 
3090 IF(M>=11 AND M<=17)OR(D>=11 AND D<=17 ) THEN A$="H!":GOSUB 220:A$=" ワ タ シ 、 モウ イチ ト 
"フク ヲ キル ! ":GOSUB 220:GOTO 1000 
3100 IF(M>=31 AND M<=34 )OR(D> =21 AND D<=53 ) THEN A$= "ナニ ヲ カン カ " エ テ イ ル ノ !! "EGOSUB 220: 
人 A あ ご "ワタ シラ ヲ ミソ コナ ワナ イ テ * 。 ":GOSUB 220:GOTO 6070 
3110 IF(M>=21 AND M<=25 ) AND(D>=1 OR D<=3 ) THEN A$=" シ ` ョ セイ ノ アツ カイ ヲ シラ ナイ ワ ネ !! 
レッ スン ハ ヤメ !! ":GOSUB 220:GOTO 6070 

TEF M=7 OR D=7 THEN A$=" チ ョ ッ ト マッ テ 。。。。":GOSUB 220:GOTO 3070 

TF M=18 AND D=18 THEN A$= "アナ タッ テ 、 ヤ サ シ イノ ネ 。" : GOSUB 220:GOTO 3070 

TF M=10 OR D=10 THEN A$= "ウフ フゥ ゥ ン OO" :GOSUB 220:GOTO 3070 

TF(M=19 OR M=20 OR M=29)AND(D=19 OR D=20 OR D=17 ) THEN A$= "ウフフ. . イカ "イト シ " ョ ウス 

:GOSUB 220:GOTO 4010 

A$= "ナニ ヲ イッ テル ノ ? "EGOSUB 220:GOTO 3070 

) 還 是 昌 KN. 還 是 開 

GOSUB 250:COLOR=(4,0) :COLOR=( 5,0) :COLOR=(6,7 ) 

) B+P 

OUT 104.,.0:BC=3:GOSUB *BACK 

TSET &HCFFO,1:TSET &HD3ED,+4:TISET &HD4E8,4:WBYTE(&HD57C) :PAINT(114,41),.0,.4:P 
OLL 4.88,.4:PATINT(222.8) ,0,4:PATINT(222.21),.0,4:PAINT(142,26),0,4 
4115 POLL 1,139,30:ISET &HD585,5:ISET &HD5D8,5:PAINT(177,.60),6,5:PAINT(344,43),6 
ぅ 5:WBYTE(&HD6 9D ) 
4118 GOSUB 70 
4120 GOSUB 10000 
4125 IF D=10 OR D=27 OR M=10 OR NM=57 OR M=58 THEN A$=" チ ュ ! "EGOSUB 220:Q=2:GOTO 41 
20 
4130 IF D>=36 AND D<=50 THEN A$=" ヘ ン ナ 、 シュ ミネ ! ! - ワタ シ 、 フ ク ヲ キル !! 
:GOSUB 220:GOTO 1000 
4135 IE D=21 THEN A$=" イ タイ ! 1 キラ イ ! 1 7":GOSUB 220:GOTO 4120 
4140 IF D>=51 AND D<=56 THEN A$=" ケ "ヒン !! ":GOSUB 220:GOTO 4120 
4145 IF D=18 OR D=22 OR(D>=31 AND D<=35)THEN A$=" ァ アァ .. ン OO":GOSUB 220:W=2:GOTO 41 
20 
4150 IF(D>=1 AND D<=3 ) AND M=21 AND Q=2 AND W=2 THEN A$=" ソ 、 ソ ウヨ ョ COO 6 
:GOSUB 220:GOTO 4200 
4155 ITE M>=22 AND M<=24 THEN A$=" ィ ヤン OOO. 。 "EGOSUB 220:GOTO 4120 
4160 IF M=54 OR M=55 THEN A$=" ウ フッ 。 OO 。 ホン トウ 2?" :GOSUB 220:GOTO 4120 
4165 A$=" ト "ウス ルノー 22 リ 7:GOSUB 220:GOTO 4120 
4200 'B OFF 
4205 OUT 104.0:BC=3:GOSUB *BACK 
4211 ISET &HCEFEO,4:TISET &HD3FD,4:TSET &HD4E8,4:TSET &HD6AA,4:WBYTE(&HD57C) 
4216 PAINT(114,41),.0,4:POLL 4,88,4:PAINT(222,.8) ,0,4:PATINT(222.21) ,0,4:PAINT( 142, 
26 ) ,0,4:POLL 1,138,30:TSET &HD585,5 
4220 PAINT(344,43) ,6,5:WBYTE(&HD69D ) 
4223 GOSUB 70 
4225 GOSUB 10000 
4230 IF D=10 OR D=27 OR M=10 OR M=57 OR M=58 THEN A$=" チ ュ !":GOSUB 220:GOTO 4225 
4235 IF D>=36 AND D<=50 THEN A$= "ヘン ナ 、 シュ ミネ !! ワタ シ 、 フ ク ヲ キル !! 
:GOSUB 220:GOTO 1000 
4240 TE D>=51 AND D<=56 THEN A$=" ア ッ 、 イ 、 イヤ ! 07:GOSUB 220:GOTO 4225 
4245 1TF D=21 THEN A$=" イ タイ !! "EGOSUB 220:Q=0:W=O0:GOTO 4225 
4250 IF(D>=31 AND D<=35 ) AND( (M>=11 AND M<=20)OR(M>=4 AND M<=52 ) ) THEN A$= "OO ム 、 


Y>130 THEN Y=130 
65070 A=USE( 0 ) : PUT (XY) ,GC%,XOR : PUT(X。Y) ,GC%,XOR:GOTO 65010 
65080 DATA 7,5,4114,4112,4112,-258,4350,4112,4112.16 


? ケ イコ 4 !save"k4.bas" 

CLEAR ,&HB9FF:ON STOP GOSUB 150:STOP ON 

POKE &HEEAB,0:POKE &HEEAC,&HBA:POKE &HEEA8,&H70:POKE &HEEA9 ,&HBA 

POKE &HEEA2,&H30:POKE &HEEA3 ,&HBC:POKE &HEEA5,&H10:POKE &HEEA6 ,&HBB 

POKE &HEEB7 ,&H90 :POKE &HEEB8 ,&HBC 

FIELD #0,12 AS ST$:ST$=DSKT$(1,1,39,14) 

FOR T=1 TO 12:POKE &HF29F+T,ASC(MTD$(ST$,1,1 ) ) : NEXT 

SCREEN 0,3:WIDTH 40,20:CONSOLE 0,20,.0,1:COLOR 1:LOCATE 7,6:PRINT"Playing in th 
dark room.":CLS 2:GOSUB 250:SCREEN 0,PEEK(&HF272 ) 

9 BLOAD "kg.obj":BLOAD "tile.dat":BLOAD "k4.dat":CLS 

10 COLOR 7 :LOCATE 7,3:PRTNT" イ ヨイ ヨ 、 アナ タ ハ 、 ケイ コチ ャ ンカ ラ ヤク ソ ク ノ リ " 

15 COLOR 3:LOCATE 7,5:PRTINT"OOO" : :COLOR 2:PRINT "ラフ "レッ スン " : :COLOR 7 :PRINT" ヲ 、 ウケ ルコ ト 
こと ナリ マシ タ 。" 

20 LOCATE 7,8:PRINT" コ コカ 5 ハ 、 " ::COLOR 6:PRINT "ノー ヒン ト "::COLOR 7:PRTNT" テ * ス 。 マニュ アル こ 、 


W 


oO ココ の や 違う OF ト O 一 


25 LOCATE 7,10:PRINT" シ タカ ~ ッ テ 、 オモ イツ クー コト ハ " ヲ 「"j:COLOR 6:PRINT">"::COLOR 7:PRINT" 」 ノ ラ 
30 LOCATE 7,12:PRTINT "ウシ ロニ 、 ツ ツ ^ ケ テ ニー イレ テク タ * サイ 10001 0 

LOCATE 7,15:PRTNT" ス ルト 、 ケイ コチ ャ ン ハ "::ECOLOR 3:PRTINT" OOO OO O⑦ ...." 

COLOR 5:LOCATE 7,18:PRINT"PUSH SPACE KEY !"::FOR IT=0O TO 200:NEXT 

LOCATE 7,18:PRTNT" "ji:FOR T=0 TO 100:NEXT 

IF INKEY$=" "THEN COLOR 7,0:CLS:CONSOLE 15,5,0,1:GOTO 1000 ELSE GOTO 40 

WIDTH 40,20:CONSOLE 14,6:CLS:RETURN 

WIDTH 40,20:CONSOLE 15,5:CLS :RETURN 


A=&HF2A0:CALL A 
*BACEK 
VIEW(0,0)-(639,139) :RBYTE( BC ) :VIEW(0,0)-(639,199 ) : RETURN 
*eto subroutines 
* TALK 
FOR M=1 TO LEN(A$ ) : B$=MTD$(A$,M, 1) :TF B$=" "THEN PRINT" "jiEGOTO 240 
BEEP 1:PRINT B$::BEEP 0 
FOR 1I=0 TO 30:NEXT:NEXT :COLOR 7:PRINT:RETURN 
?TNTT PALLET 


OUT 104,0:GOSUB 250:BC=3 :GOSUB *BACK:COLOR=( 4,0 ) 

TSET &HC700,4 

WBYTE(&HCAOF ) :POLL 3,42,4 

WBYTE(&HCA18 ) :POLL 36,55,3:WBYTE(&HCA2D ) 

LINE(345,27)-(346,27) ,+4 

WBYTE(&HCA36 ) : POLL 18,130,30 

GOSUB 60 

LOCATE 0,15:A$="OOO OO の ぅ フル ッ ス メン ョ !":GOSUB 220 

TF PEEK(&HF274 ) =&HFF THEN FOR 1=0 TO 1500:NEXT:A$=" ト 、 オモ ッ タ ケト "アナ タ 、 マン ショ ン ノ 、 ト 
ルコ シ *" ョ ウノ オセ ワニ ナッ タワ ネ 。":GOSUB 220:A$=" ミ ソコ ナッ タワ ファ ケツ ! ! ":GOSUB 220 
:GOTO 6070 

GOSUB 10000 

TE D=55 OR D=56 THEN A$=" ヤ メ テ ヨ !! アホ!! "EGOSUB 220:GOTO 1090 

TF M>=1 AND M<=3 AND D>=1 AND D<=3 AND Q=1 AND W=1 THEN GOTO 2000 

TF M>=1 AND M<=3 AND D>=1 AND D<=3 THEN A$=" ア セッ チャ イヤ 。":GOSUB 220:GOTO 1090 

TF D=19 OR D=20 THEN A$=" マ タ ^ 、 ソン ナ キ ニ ナレ ナイ ワリ 。":GOSUB 220:GOTO 1090 

IF(M>=4 AND M<=6)OR(D>=4 AND D<=6 ) THEN A$=" ケ "ヒン ナ 上 ト ネ !! "EGOSUB 220:Q=0:W=0:G 
OTO 1090 
1150 IF (D>=48 AND D<=60 )OR(M> =31 AND M<=34 ) THEN A$=" ハ "カナ コト シナ イ テ ^ ! 1! 7":GOSUB 220: 
GOTO 1090 
1160 IF M=7 OR D=7 OR(D>=21 AND D<=35 ) THEN A$=" イ ヤラ シイ キラ イ !!":GOSUB 220:Q=0:W=0:G 
OTO 1090 
1170 IF M=8 OR D=8 OR(D>=40 AND D<=45)THEN A$=" マ ダー ダメ ヨー ! 7 "7:GOSUB 220:GOTO 1090 
1180 IF M=9 OR D=9 OR M=54 OR M=55 THEN A$=" ォ オシ" ョ 9 ウス " ネ の O":Q=1:GOSUB 220:GOTO 1090 
1190 IF M=10 OR D=10 THEN A$= "ウフ フフ 。 。 の O" :W=1:GOSUB 220:GOTO 1090 


7 47 1 A$=" ト ^ ウ ヤ ラ キミ 八 ミコ ミチ ナカ" イ ヲ ヤッ テイ ル ":GOSUB 9:PRINT:A$=" シ カシ 、 アッ ハ * レ ルナ ヤッ ツタ " :GOSUB 9:P 
RINT : A$=" ヒ ント ヲ ア ケ ^ ヨウ ":GOSUB 9:PRTINT:A$=" マ ンション ニ モト ` ッ テ 、 テカ ~ カリ ヲ サカ " シテ キタ マエ 。 。。。":GOSUB 
9:T=1.5:GOSUB 8 
7472 PRINT:PRTINT : A$="" ハ ン ニ ン ハ ソウ イッ テイ マス " : GOSUB 9:PRTINT:A$= "DISK ヲ シラ う へ * テ 、 セッ ト サ レ テイ タラ PU 
SH ANY KEY!!":GOSUB 9 
7473 A=USER( 0 ) :S$=INPUT$( 1 ) :CLS 
7474 RUN "jk2.bas": り *RUN"R2" 
7499 END 
7500 カケ ヶ * 
7510 OUT 104,.0:GOSUB 12:GOSUB 13:BC=1:GOSUB 14:COLOR=(4,0) :ISET &HDBED , 4 
7520 PAINT(232,39),0,4:T=1.5:GOSUB 8:GOSUB *CONS :A$= "人 人 カケ" カ " ..。 "EGOSUB 9:PRINT 
7530 GOSUB 60000 
7540 IF D=15 OR D=18 OR D=12 OR D=29 OR D=40 OR(D=>7 AND D<=9 ) THEN GOTO 6800 
7550 ITF D=10 OR D=13 OR D=38 OR D=39 THEN A$= "ココ マテ ^ キテ オキ ナカ ~ ラ う 、 ソウ テ ~ スカ . . ..":GOSUB 
9 : PRINT : A$=" シカ タナ イ テ ^ スネ 。 GAME ハ 、 OVER テ * ス " :GOSUB 9:T=1.2:GOSUB 8:GOTO 10000 
7560 GOTO 7530 
7600 ' キ ッ サ ナカ 
7610 GOSUB 13:GOSUB 12:COLOR=(4.0):LINE(0,135)-(639,135) ,4 
7620 ISET &HC855,4 
7630 WBYTE(&HCDD7 ) :POLL 0,.137,41 
7650 WBYTE(&HCE09 ) :POLL 8,127,69 
7660 PAINT(312.72),0,4:PAINT(327.72).0,4:PATNT(345,.73).0,4:PAINT(361,77),0,4 
7670 WBYTE(&HCE4E ) :POLL 0.137.63 
7680 WBYTE(&HCE6B ) : POLL 10,.38,37 
7690 WBYTE(&HCE74 ) :POLL 4,22,29 
7700 WBYTE(&HCE81 ) 
7701 
8000 
10000 COLOR 7.0:CLS 3:WIDTH 80,.25:CONSOLE 0,25,1,1 
10020 PRINT:PRINT"Disk version [Aug 20,1982]":INPUT"How many files(0-15) " :DAMASA 
RETAYATSUWAAHON$ 
10030 PRINT"NEC N-88 BASIC Version 1.3":PRINT"Copyright (C) 1981 by NiocrosofL":P 
RINT"45410 Bytes free":END 
60000 PRINT:COLOR 6:A$=" ト "ウシ ィ ス カー" :GOSUB 9:PRINT"> "CS=" 7 iCOLOR 7 
60010 LINE INPUT C$:TF C$=" "THEN D=0:J=0:M=0:GOTO 60080 
60020 RESTORE 61000:DO=47:D=0:FOR 1=1 TO DO:READ DO$ 
60030 TF INSTR(" "+C$」" "+DO$ ) THEN D=T1 :T=DO 
60035 NEXT 
60040 RESTORE 62000:JLI=13:J=0:FOR LT=1 TO JI:READ JT$ 
60050 TEF INSTR(" "+C$,」" "+JT$ ) THEN J=1:T=JT 
60055 NEXT 
60060 RESTORE 63000:MO=55:M=0:FOR T=1 TO MO:READ NO$ 
60070 IF INSTR(" "+C$,」" "+MO$ ) THEN M=1:T=MO 
60075 
60080 
60099 
61000 ウシ ロ ュ 2 ヒモ タ ー リュ す ミキ "6, マエ 。8 ュ イク, モト " ル 。 ア ケル 。 ハ イル テル, キク シラ へ ヘル 。 ヨ フ " 」 スル, ミル, トル 
61010 ミセ ル , カウ 」 サカ" ステー ン ワ ハナ ス , ナ ク ~ ル ケル ヤル 。 アタ エル 。 タス ケル 。 サワ ル 。 ヌカ " ス , ナ テ " ル , スワ ル 。 ノム 
Ma チュ ウ モ ンス ル , カワ ナイ , イラ ナイ , ニケ " ル , カエ ル , スク ウ , キュ ウシ ~ g , コ ワ ス , ツ ソフ" ス 」 ヤク 。 モヤ ス , モス , オス 
1 
62000 ナマ エ , ケ イコ 。 ショ セイ 。 オ ン ナ 。 オト コ 。 タ " ン セ イ 」 カメ ラマ ン , タチ キチ サン へ ? イ 。 ハン ニン , ユウ カイ マ , マス ター , テ ン イ ン 
62010 ウエ イト レス 
62999 
63000 JJ , JJ シト ェ イ シェ エイ レス トラ ン , ハ "ショ ュ イ エ 。 マ ッ チ 。 サイ フ 。 シャ シン , クル マ , モチ ヌシ 。 ユー サ ~ - ケー キュ ハ " ン 
63010 クッ キー 。 イヌ 。 アト リエ 。 ケ ンカ ン 。 ト "アフ サーー 。 インター ホン 。 ツ クエ 。 ホ ンタ ^ ナ 。 ソ ファ アー 。 オ ウ セ ヤツ 。 カメ ラ 。 イリ ク * チ 
63020 フク スリ ッ フ 5 」 フ トラ シ * ャ ヤー。 八 ” ン テ ィ 』 ソ ックス , ナ ン ハ "ーー 。 ナ ン ハ ~ ー フ ? レー ト 。 イ ス , コー ヒー 。 コウ チャ 。 フ ク ソト 」 ナ カ 
63030 ホワ イト キャ ッ ス ル , ス へ“~ テ , ミンナ, ミナ 。 カ ー , CAR 。 セ " ン フ " , サ ツェ イキ 。 フィ ルム , CAMERA ,FTLM 
63040 へ ~ ル , チャ イム , ヨ ヒ ~ リン , モク テキ 
65000 *GCURSOR : RESTORE 65080 
65001 DIM GC%(9 ) :FOR IT=0 TO 9:READ GC%( 1 ) :NEXT:SCREEN 0,.0 
65002 X=320:Y=100 
65010 INO=TINP( 0 ) : IN1 =INP( 1 ) : IN8=INP( 8 ) 
65020 1TF IN1=254 AND (TIN8=191 OR TIN8=159 ) THEN Y=Y-10 ELSE 1F IN1=254 THEN Y=Y-1 
:・GOTO *LE 
65030 TE INO=239 AND (IN8=191 OR IN8=159 ) THEN X=X-10 ELSE IF INO=239 THEN X=X-1 
:GOTO *LE 
65040 IF INO=191 AND (IN8=191 OR IN8=159 ) THEN X=X+10 ELSE ITF INO=191 THEN =X+1 
:GOTO *LE 
65050 IF INO=251 AND (IN8=191 OR IN8=159 ) THEN Y=Y+10 ELSE IF INO=251 THEN Y=Y+1 
:GOTO *LE 
65060 IF IN1=127 THEN X=X+4:Y=Y+3:ERASE GC%:SCREEN 0,PEEK(&HF272) :RETURN 
65065 *LE:TF X<0 THEN =0 ELSE TE X>630 THEN X=630 ELSE 1F Y<0 THEN Y=0 ELSE 1F 


7195 GOSUB *CONS : A$=" キ - ヲ トリ マシ タ ":GOSUB 9:T=1:GOSUB 8 

7200 KKK=1 :RETURN 

7210 * カ イタ * ン 

7220 GOSUB 12:GOSUB 13:COLOR=( 4,0) 

7230 BC=0:GOSUB 14:POLL 0,137,69 

7240 ISET &HCEA9,4 

7250 WBYTE(&HCFAE ) : POLL 51,137,40 

7260 WBYTE(&HCEFB7 ) : POLL 51,137,27 

7270 T=1.5:GOSUB 8:A$=" カ イタ "ンカ ~ アリ マス 。 オリ テ ミ マ ス " : GOSUB 9:T=1:GOSUB 8:GOTO 7500 

7300 ! ナ ク 

7310 GOSUB 12:GOSUB 13:BC=1:GOSUB 14:COLOR=( 4 ,0 ) : TSET &HCEC0,4 

7330 WwBYTE(&HD819 ) :POLL 105,119,69 

7340 WBYTE(&HD826 ) :POLL 105,113,38 

7350 WBYTE(&HD82B ) :POLL 71,105,9 

7360 WBYTE(&HD830 ) :POLL 80,100,17 

7370 WBYTE(&HD835 ) :POLL 35,122,64 

7380 PAINT(386,112),0,4:PAINT(286,132) ,0,4:POLL 111,135,12:WBYTE(&HDE9B ) : PAINT(2 
90,110) ,3,4:PAITNT(300,128) ,0,4 

7390 A$=" ハ ン ニ ンカ " ナ キ タ ~ シャ シタ 。。。。。。。。 "EGOSUB 9 :PRTNT : A$= "アア テア アーー ン ! ! カメ ラ コワ シタ ナーー! フィ ルム 
モヤ シタ ナ ! ! ":GOSUB 9:PRTNT :A$=" ト `~ ウシ テク レル ンタ ” ! ワー ン ! "EGOSUB 9:PRINT : A$= "コレ カ ~ ナ ケ レ ハ *" シコ "トニ 
ナラ ナイ ! 1! " :GOSUB 9 

7391 PRINT:A$= "セッ カク クロ ウシ テ 、 ツク ッ タ ヒミツ ノ カメ ラ タ " ッ タフ ノニ ィ イ イ ! 1":GOSUB 9:PRINT : A$=" セ カイ テ * タ 
タ " 1 ツノ XX セン カメ ラ タ * ッ タ ノ ニ ィ イ イイ 1 1 リ GOSUB 9:PRTNT:A$= "コノ カメ ラテ *" オオ モウ ケ シテ ヤロウ ト シテ イタ ノニ ィ イイ イイ ! 07・ 
GOSUB 9 

7392 PRTNT:A$= "コノ フィ ルム ニ ケイ コチ ャ ン ノ ヌー ト ~ ヲ トッ テア ッ タ ノニ ィ イ イイ ! 7!" :GOSUB 9:PRINT :A$=" オ ホ *" エ テ ロ !! 
オ ホ ~ エ テ ロ ! ! "EGOSUB 9:PRTINT : A$= "カエ レ ! ! ハヤ ク カノ シ ^ ョ ヲ ツレ テ カエ レ !!":GOSUB 9:PRTINT:A$="。。。。。 
カエ レ ェ ェ ェ !! 7":GOSUB 9 

7399 T=3.5:GOSUB 8:GOTO 6900 

7410 ! ハ ン ニ ン 

7411 GOSUB 12:GOSUB 13:BC=1:GOSUB 14:COLOR=(4,0) :VTEW(270.22)-(410,113) :RBYTE( 0 ) 
:VTEW(0,0)-(639,199 ) :POLL 22,116,30:TSET &HD846,4:WBYTE(&HDBA0O ) 

7412 A$=" ン 2 クソ 1! 1 シャ マガ が "ハイ ッ タ 。 。 。 "EGOSUB 9:PRINT:A$=" タ レタ " ネ キミ 2":GOSUB 9:PRINT 
・A$= "チョ ッ ト マテ ヨ 。 ト ~ コカ テ ^~ ミタ ヨウ タ ~ 。。。。":GOSUB 9:PRTNT : A$= "ハハ アー ン 。 オモ イタ ~ シタ 。 マン ショ ン テ " アッ タナ 
":GOSUB 9:PRINT : A$= "コン ナ トコ ロ へ ナニ シ ニ ヤッ テ キタ 2":GOSUB 9 

7415 GOSUB 60000 

7416 TE D=14 AND M=55 THEN A$= "スハ" ラ シ イ ハツ メイ ヲ シ タ ! ナン テ ^ モ スケ テ ウツ ル カメ ラ タ *" 。":GOSUB 9:A$ 
= ミリ "トコ ロカ ^~ 、 ミ ン ナ ハ ソレ ヲ イヤ ラ シ イ 、 ケ " ヒ ン ナ ト " ト イイ ヤ カ " ッ タ " : GOSUB 9 : A$= "コウ ナッ タラ 、 シ カタ ナイ 。 オレ ノ ウ テ *" ヲ ミト メ 

サ セ テ ヤル ノ タ ~ ! 1 "EGOSUB 9:A$=" オ レ ハ 「 ケ イコ 」 ノ ヌー ト ^" ヲ ニー イ ッ ハ " イ トッ テ 、 ウ レッ コ ニ ナル ノ タ ^ ! 1 7":GOSUB 9 

7420 TF D=29 OR(D=40 OR D=41 ) THEN A$=" フ フフ 。 ナマ イキ ナ ヤツ メ 。。。 ト ` ウ ヤ ッ テ タス ケル ツモ リタ * 27・GOSU 
B 9:GOTO 7430 

7422 GOTO 7415 

7430 GOSUB 60000 

7431 TE D=16 THEN A$=" ヨ フ " 2 タ " レ モ コン ナ トコ ロ ヘ ハ コナ イサ ":GOSUB 9:GOTO 7430 

7432 TE D=29 OR(D=40 OR D=41 ) THEN A$=" タ "カラ ト *" ウ ヤッ テリ":GOSUB 9:GOTO 7430 

7433 TF D=24 THEN A$=" ハ ナス コト ハ ナイ 。 カ ェ レ ! " :GOSUB 9:GOTO 7430 

7434 ITF D=25 OR D=26 THEN A$= "ワタ シ ニ カテ ル ワ ケ カ ^ ナイ" :GOSUB 9:PRTNT:A$=" ワ タ シ ハ シュウ ト " ウ 5 タン 
。 ケン ト * ウ 3 タ " ン 。 アイ キト " ウ 5 タ " ン 。 "EGOSUB 9:PRINT :A$= "カラ テ 2 タ * ン 。 ホ " クシ ンク ~ 日 ホン チャ ン ヒ ? オン 2 年 ホシ " 。 ソ シ テ 
<・・・ フ ッ フ ッ プ フ " :GOSUB 9 

7435 ITF D=25 OR D=26 THEN PRINT:T=1:GOSUB 8:A$=" ト `" イ マサ ル オリ ョ ウリ キョ ウシ ツ ノ メン シ " ョ マテ " モ 
ッ テ イ ル ノ タ ^ " :GOSUB 9:PRTNT :A$=" ト ~" ウタ "オト ~ ロイ タカ 。。。":GOSUB 9:PRINT:GOTO 7430 

7436 ITF NM=26 OR NM=48 OR M=50 THEN A$="「 ナ ニ ?」" :GOSUB 9:PRINT:T=1:GOSUB 8:A$=" ハ ン ニ ン ノ 
カオ イロ カ `~ カワ リマ シタ 。":GOSUB 9:GOTO 7450 

7437 TF M=49 OR NM=51 THEN A$="「 ナ ニ ?」" :GOSUB 9:PRINT:T=1 :GOSUB 8:A$= "ハン ニン / ノ カオ イロ か カ ^ 
カワ リマ シタ 。" : GOSUB 9:GOTO 7450 

7439 GOTO 7430 

7450 IF FEF=1 AND CCC=1 THEN A$=" ア アァ アァ! !! ソレ ルレ ヲ ト " ウス ルツ モリ タ * し 77:GOTO 7460 

7451 GOSUB 60000 

7452 TE FEFEF<> 1 AND(M=49 OR NM=51 ) THEN A$= "ハハ ハ 。 ナン タ " オト *" カス モン シ " ヤナ イ 。 キミ ノ イッ テイ ル フィ ルム ハ 
モン タ " イナ イ " : GOSUB 9:PRINT :A$= "カノ シ ^` ョ ヲ タス ケル コト ハ テ ~ キ ン ヨ " :GOSUB 9:PRINT:GOTO 7470 

7453 TF CCC<> 1 AND(M=148 OR NM=50 ) THEN A$=" ハ ハハ 。 ナン タ ^ オト" カス モン シ ~ ヤナ イ 。 キミ ノ イッ テイ ル カメ ラ ハ 
モン タ ~ イナ イ " : GOSUB 9:PRTINT :A$=" カ ノシ ~ ョ ブ タス ケル コト ハ テ ~ キ ン ヨ ":GOSUB 9:PRINT:GOTO 7470 

7455 GOTO 7451 

7460 '*F&C* 

7461 GOSUB 60000 

7462 IF CC=1 AND FE=1 THEN A$=" ハ ン ニ ン ノ メ カラ ナミ タカ 。。.。。"「:GOSUB 9:T=1:GOSUB 8:GOTO 
7300 

7463 IF(D=42 OR D=43)AND(M=26 OR M=48 OR M=50 ) THEN A$=" ア ァ ァ ーー-! ! ナ 、 ナ ント イ ウ コト ヲ ! 1 "7:G 
OSUB 9:CC=1 

7464 TEF(D>=44 AND D<=46 )AND(M=49 OR M=51 ) THEN A$=" ア アア アーーーー! ! ナ 、 ナ ント イ ウ コト ヲ ! ! "7":GOSU 
B 9:FE=1 

7465 GOTO 7461 

7470 !* 


6500 !R3 

6510 OUT 104,0:GOSUB 12:GOSUB 13:COLOR= (3,0) 

6515 RBYTE(0) :PAT=&HE400:POKE PAT ,&HDD :POKE PAT+1,255:POKE PAT+2,&HDD:POKE PAT+3 
,255:POKE PAT+4,&HDD:POKE PAT+5,&HDD 

6520 POLL 0,137,255 

6530 ISET &HC2A1,0 

6540 RESTORE 6540:FOR 1T=1 TO 5:READ X,Y,R,C:CIRCLE(X,Y) 。 
:NEXT:DATA 557,.57,40.0.555,.44.9,.2.532.54.9。1.547.71.9,4。 

6550 WBYTE(&HC490 ) 

6560 RETURN 

6600 "'R4 

6610 OUT 104,0:GOSUB 13:BC=2:GOSUB 14 

6621 LINE(360,81)-(372,81) ,0 

6630 ISET &HC4A9.0 

6650 RETURN 

6700 'R2 

6710 OUT 104,0:GOSUB 12:GOSUB 13:COLOR=(3,0) :RBYTE(0 ) 

6715 PAI=&HE400:POKE PAI,&HDD:POKE PAT+1,.255:POKE PAT+2,&HDD:POKE PA1T+3.255:POKE 
PAT+4,&HDD:POKE PAI+5,&HDD 

6720 POLL 0,137,255 

6730 ISET &HC63B,0 

6740 WBYTE(&HC7CD ) 

6750 RETURN 

6800 "イィ ャ 

6810 GOSUB 12:GOSUB 13:COLOR=(4,0) :BC=3:GOSUB 14 

6820 VIEW(123,19)-(297,123) :RBYTE(0 ) :VIEW(0,0)-(639,199 ) :POLL 19,126,30 

6830 ISET &HC832,4 

6840 WBYTE(&HCBDC ) : POLL 0,92,4:WBYTE(&HCBE5 ) 

6860 A$= "アッ! ケイ コチ ャ ン テ ~ ス ":GOSUB 9:PRTNT:A$=" キ キイ ッ ハ " ツ !! オリ ソワレ テイ ッ マス" : GOSUB 9 

6870 GOSUB 60000 

6880 IF D=40 OR D=41 OR D=29 THEN A$=" カ " ン ハ "ッッ テ 、 ケイ コチ ャ ン ヲ タス ケ テ ク タ * サイ " :GOSUB 9:T=1:GO 
SUB 8:GOTO 7410 

6890 GOTO 6870 

6900 ' キ * ロ 

6910 GOSUB 12:GOSUB 13:COLOR= ( 3 , 0 ) 

6920 BC=1:GOSUB 14:VIEW(0,58)-(336,135) :RBYTE(2) :VIEW(335.79)-(636,135 ) :RBYTE(5 ) 
:VIEW(0,0)-(639,199) :LINE(0,135)-(639,135) ,3:TSET &HCCOE,3:LINE(0,58)-(333,58),3 
:WBYTE(&HCCE0 ) 

6950 TF FUKU く > 1 THEN A$=" メ テ * タ シ 、 メ テ " タ シ 。 マス ~ 八 1 ケン ラク チャ ク 。 . 。。" :GOSUB 9:PRINT:A$="。.. ト 
コロ テ * アナタ ハ 、 サッ キ 、 クル マ ノ ナカ ノ ":GOSUB 9 :PRTINT : A$= "ケイ コチ ャ ン ノ フク ヲ トッ テ オカ ナカ ッ タ テ ~ スネ 。。。" :GOSU 
B 9:PRINT 

6952 TF FUKU く > 1 THEN A$=" ケ イコ チャ ン ハ 「 ハ タ " カシ " ャ ニー イヤ !!」":GOSUB 9:PRINT :A$="「 ハ ス * カシ ク テ カエ レナ 
イ 」 ト ナ キ タ ~ シャ シタ " : GOSUB 9:PRINT:A$="OLOVE LESSON ハ オォ アス " ヶ .。..":GOSUB 9:T=1.5:GOSUB 8 
6955 TEF FUKU<> 1 THEN PRINT:A$=" オ シイ ! ! ホン トニ オシ イ 。 ココ マテ ~ キテ オキ ナカ ~" う 。 。。":GOSUB 9:PRINT 
:A$= "アキ ラメ テク タ * サイ 。 ルー ル テ * ス ":GOSUB 9:PRINT:A$=" GAME OVER !!":GOSUB 9 

6956 TIF FUKU<> 1 THEN T=2:GOSUB 8:GOTO 10000 

6960 A$=" イ ヤー アァ 、 ヨカッタ 、 ヨ カッ タ 。" : GOSUB 9:PRTNT:A$=" テ ^" ハ 、 ケイ コチ ャ ント イッ ショ ニ カエ リマ ショ ウ ":GOSUB 9 
: PRTNT : A$=" オ マチ カネ 。 「LOVE LESSON」 テ ~ ス " : GOSUB 9:PRINT:A$= "DTISK ヲ シラ へ `" テ セッ ト サレ テイ タラ PUS 

H ANY KEY!!":GOSUB 9 

6970 A=USR( 0 ) : S$=INPUT$( 1 ) 

6980 GOSUB 1000 

6990 CLS:RUN "k4.bas":? RUN "REIKO-4" 

6995 END 

7000 "TNCAR 

7010 GOSUB 12:GOSUB 13:BC=2:GOSUB 14:LINE(0,135)-(639,135),0 

7020 TSET &HDADO0,0 

7030 WBYTE(&HDD70 ) : IF FUKU=1 THEN VIEW(189,87)-(293,134) :RBYTE(6) :VIEW(0,.0)-(639 
>199 ) 

7040 GOSUB *CONS : GOSUB 60000 

7050 IF(D=15 OR D=18)AND M=28 THEN RESTORE 180:GOSUB 19:T=2:GOSUB 8 

7060 IF M=28 AND D=19 THEN FUKU= 1 :VTIEW(189,87)-(293,134 ) :RBYTE(6 ) :VIEW(0,0)-(639 
ヵ 199 ) :RESTORE 190:GOSUB 19:T=2:GOSUB 8 

7070 IF D=13 AND(M=39 OR M=45 OR M=46 OR M=10)THEN 2400 

7080 GOTO 7040 

7100 'K 

7110 OUT 104,0:GOSUB 12:GOSUB 13:BC=1:GOSUB 14:COLOR=( 4,0) 

7120 TSET &HCCF9,4'OEKAKT&HA234,4 

7130 WBYTE(&HCE42 ) :POLL 25,132,62 

7140 WBYTE(&HCE53 ) : POLL 62,109,21 

7150 WBYTE(&HCE60 ) : POLL 42,112,22 

7160 WBYTE(&HCE81 ) : PATNT(351,88),0,4:POLL 83,109,69 

7190 WBYTE(&HCEA4 ) : POLL 63,132,14 


R,C,」」。・75:PATNT(X,Y),C,C 
581,53.9,7 


5200 ! ハ * ン 
5210 OUT 104,.0:GOSUB 12:GOSUB 13 
5220 BC=1:GOSUB 14 
5230 ISET &HD21D,7 
5231 PAINT(368,34) ,0,7:POLL 33,115,11:WBYTE(&HD316 ) 
5250 RESTORE 5250:FOR T=1 TO 3:READ X,Y:CTRCLE(X,Y) ,55,6,,,.3:PATINT(X,Y) ,6,6:CTR 
CLE(X,Y) ,25,1,」,.3:PATNT(X,Y) ,1,1:NEXT:DATA 553.60,480,.78,568,95 
5260 FOR T=0 TO 15:X=TNT(RND*40 )+96:Y=TNT(RND*20)+27:PSET(X,Y),4:NEXT:FOR T=0 TO 
35:X=INT(RND*120 )+40:Y=INT(RND*30 )+77:PSET(X,Y) ,0:NEXT:RETURN 
5300 ER+X 
5310 OUT 104,.0:GOSUB 12:COLOR=( 4,0) :GOSUB 13:BC=3:GOSUB 14 
5320 CIRCLE(383,29) ,58,4,,,.6:PAINT(383,29) ,4,4:TSET &HD327,4:WBYTE(&HD594 ) 
5350 PAINT(237,.2),0,4:POLL 0.49,4:WBYTE(&HD5B5 ) : POLL 12,86,30 
5360 PAINT(250,34 ) ,3,4:TSET &HD5C2,7:WBYTE(&HD60D ) 
5380 RESTORE 5385:FOR IL=1 TO 6:READ X,Y,R:CIRCLE(X,Y) ,R,7:PATINT(X,Y) ,7,7:NEXT:EFO 
R 1I=1 TO 4:READ X,YJR:CIRCLE(X,Y) ,R,3:PAINT(X,Y) , 3,.3:NEXT 
5385 DATA 179.8,12,161,.27.6,130,.39,.6,461.93.6,382,.107.6,430,123.12.96,19,4,48,33 
>4 542.100.4.509.114,4 
5390 GOSUB *CONS : RESTORE 120:GOSUB 19:RETURN 
5400 ' ア トリ ェ 
5410 OUT 104.0:GOSUB 12:GOSUB 13:BC=1:GOSUB 14:VIEW(149,.39)-(449,107) :RBYTE(5):V 
TIEW(279,.80)-(333,119 ) :RBYTE( 7 ) :VIEW(0.0)-(639,199) 
5420 ISET &HD616,0:WBYTE(&HD855 ) 
5430 LINE(285,116 ) -( 330,116 ) , 0 : RETURN 
5500 'CAR 
5510 OUT 104,.0:GOSUB 12:GOSUB 13:COLOR=( 3,0 ) :COLOR=(4,0) :BC=1:GOSUB 14 
5520 RESTORE 5525:FOR 1=1 TO 8:READ X,Y,R,C,H:CTIRCLE(X,Y) ,R,C,,,H:PATNT(X,Y) ,C,C 
:・ NEXT 
5525 DATA 133.82,18,3,.9,120.83,18,4,.9,120.83,10,.7,.9,120.83.5.6,.9,319.100,28, 
3。.7。 301.100,28.4。.7.301.100.19.7,..7.301.100,10.6,.7 
5530 ISET &HD89A, 0:WBYTE(&HDA8A ) : ISET &HDABF,0 
5540 PAINT(490,105),0.0:PAINT(490,102) ,0,0:RETURN 
5600 'DOG 
5610 OUT 104,.0:GOSUB 12:GOSUB 13:COLOR=( 3,0) :COLOR=( 41,0 ) :BC=1:GOSUB 14:CTRCLE( 30 
0.117),120.3,,,.15:PATNT(300,117 ) ,。3.3:TSET &HDDB9,4 
5620 WBYTE(&HEO082 ) 
5630 CMD(384.80)」" が 959、 "3.3」2,1,PSET : RETURN 
5700 ' テ ケ ヶ "ンカ ン 
5710 OUT 104.0:GOSUB 12:GOSUB 13:VIEW(0,0)-(639,114 ) :RBYTE( 7 ) :VIEW(0,114)-(639,1 
35 ) : RBYTE( 4 ) :VIEW(0,0)-(639,199) 
TSET &HEOAB,0:WBYTE(&HE19A) 
CIRCLE(378,65),3,6,,,.5:PATINT(378.65) ,6,.6:RETURN 
3 ロ 1 
OUT 104,0:BC=1:GOSUB 14:LTNE(280,70)-(360,102) ,5,B:RESTORE 5810:ISET &HC000 


RETURN 

7 ロ 2 

OUT 104,.0:BC=1:GOSUB 14:LINE(216,26)-(424.112),5,B:TSET &HCO059,5 

RETURN 

7D 

OUT 104,0:BC=1:GOSUB 14:LTNE(0,120)-(639,120),5:LINE(248,6)-(392,120),5,B:C 
TRCLE(260,70),6.5:PAINT(260,.70) ,5,5:RETURN 
6100 "od 
6110 LINE(320,120)-(391,120) ,1:CIRCLE(260.70),6,1:PAINT(260,70),1,1:LINE(392.6 ) - 
(320,16),5:LINE-(320,135),5:LINE-(392.120 ) ,5:CIRCLE(336.78) ,5.5,,,.8:PAINT(336,7 
8 ) , 5,5:RETURN 
6300 !'NP 
6310 OUT 104,0:BC=1:GOSUB 14:VIEW(100,16 ) -(540,120 ) :RBYTE( 7 ) :VIEW(0,0)-(639,199) 
:CTRCLE(230,20).6,0:CIRCLE(414,20),6,.0 
6315 LINE(256,32)-(268,40),0,B:LINE(250,40)-(274,48),0,B:LINE(262,40)-(262,48),0 
:LTNE(282,32)-(282,45) ,0:LINE-(280,48),0:LINE(292,32)-(292,.45),0 
6320 LINE(302.32)-(302,48),0:CMD(156.76)」" リ "2.2.0.7,PSET:CMD(352.32) "56",3.3.0 
j7, PSET:CMD(222.62) "77-50",7.6.0,7,PSET :RETURN 
6400 'R1 
6410 OUT 104.0:RBYTE(0) :PAT=&HE400:POKE PAT,&HDD:POKE PAT+1,255:POKE PAT+2,&HDD: 
POKE PAT+3,255:POKE PAT+4,&HDD:POKE PAT+5,&HDD 
6420 POLL 0,137.255:LTNE(129,88)-(135,86) ,0 
6421 LINE(129.88)-(135,86),0 
6430 ISET &HC098,0 
6440 WBYTE(&HC237 ) :WBYTE(&HC268 ) 
6450 VITEW(361,34 ) -(441,42) :RBYTE(6 ) :VIEW(0,0)-(639,199 ) :CIRCLE(247.33) ,5,0:PAINT 
(247.33),0,.0:CIRCLE(262.33) ,5,0:PATNT(262,33) ,0,0:RETURN 


END 


8 一 


3812 LOCATE 20,11:PRINT"ALL CLEAR":LOCATE 36,11:PRINT"A":LOCATE 48,11:PRINT"B":L 

OCATE 61,11:PRINT"C" 

3814 FOR TI=194 TO 434 STEP 120:LINE(T,37)-(T+32,53) ,0,BF:FOR BEE=1 TO 10:BEEP 1: 

BEEP 0:NEXT BEE:NEXT:FA=0:FB=0:FC=0 

3816 COLOR 6:FOR 1T=0O TO 2:LOCATE(194+T*120)/8+2.5:PRINT"0":NEXT 

3818 COLOR 4:FOR 1T=0 TO 3:CTRCLE(180+T*100,80) ,8,0:PATNT(180+T*100,80 ) , 0:NEXT 

3820 FOR TI=0 TO 9:LOCATE 22+T*4,13:PRINT I:NEXT 

3821 ITF INP(8)=223 THEN COLOR INT(RND*6+1 ) : LOCATE 20,16:BEEP 1:BEEP 0:PRINT " ヵ ナ 

キー ノ ロッ 2 ヲ ハス "シテ クタ "サイ リュ :GOTO 3821 

3822 COLOR 7:LOCATE 20,16:PRINT" ト ^ レ ヲ ェ エラ ヒ ~ マ スカ ? (A」B,C,D) ":LOCATE 22,18:PRINT" 

(D) スペ" テ ノ スウ >" ヲ 0 = スル ":LOCATE 22,19:PRINT"(A)  A = ス 9 ジ ヲイ ルル ":LOCATE 22,20: 

PRTNT"(B)  B = スウ 9 シ ジ " ヲイ ルル ":LOCATE 22,21:PRTINT"(C) C = スウ ジラ ヲイ ルル " 

3823 COLOR 3:LOCATE 22,23:PRTINT "スウ シ ^~ ヲ 7 ニ ソロ エ テ ク タ ~ サイ " 

3824 E$=INKEY$:TF E$="" THEN GOTO 3824 

3826 IF E$="D'" OR E$="d" THEN PATNT(180,80 ) ,2,1:GOTO 3814 ELSE ITF TNSTR( "AaBbCo" 

yE$) THEN 3828 ELSE 3824 

3828 IF E$="A" OR E$="a" THEN PATNT(280,80) ,2,1 ELSE IF E$="B" OR E$="b" THEN PA 

INT(380,80 ) ,2,1 ELSE PAINT(480,80),2,1 

3830 COLOR 6:LOCATE 20,23:PRINT" ス 9 ウシ "ラフィ イレ テラ クダサイ (0-9)" 

3832 F$=TNKEY$:TF F$="" THEN GOTO 3832 

3834 IF INSTR("0123456789",F$) THEN 3836 ELSE 3832 

3836 FOR 1I=0 TO 9:TF VAL(F$) =T THEN LOCATE 22+T*4,13:COLOR 2:PRINT エ 

3838 NEXT 

3840 IF E$="A"' OR E$="a" THEN FA=VAL(F$ ) :FB=FB+3:FC=FC+5:FD=194:F1=314:F2=434 

3842 IF E$="B" OR E$="b" THEN FB=VAL(F$ ) :FC=FC+3:FA=FA+5:FD=311:F1=434:F2=194 

3844 IF E$="C" OR E$="cC' THEN FC=VAL(F$) :FA=FA+3:FB=FB+5:FD=434:F1=194:F2=314 

3846 1TF FA>9 THEN FA=FA-10 

3848 IF FB>9 THEN FB=FB-10 

3850 ITF FC>9 THEN FC=FC-10 

3852 FOR TI=0 TO 9:FA$( TI ) =CHR$(&H30+1 ) : NEXT 

3854 LOCATE FD/8+2,5:PRINT F$ 

3856 FOR 1I=0 TO 9:LOCATE F1/8+2.5:PRINT FA$( 1 ) :LOCATE F2/8+2.5:PRINT FA$(TI):FOR 

BEE=1 TO 10:BEEP 1:BEEP 0:NEXT BEE:NEXT 

3858 LOCATE 26,5:PRINT FA$(FA) :LOCATE 41,5:PRINT FA$(FB):LOCATE 56,5:PRINT FA$(F 

C) 

3860 IF FA=7 AND FB=7 AND FC=7 GOTO 3864 ELSE GOTO 3862 

3862 LOCATE 20,23:PRTNT SPACE$(24 ) :GOTO 3818 

3864 LOCATE 20,23:PRINT" KEY BOX カ " アキ マシ タ "ji:FOR TIT=0 TO 50:BEEP 1:FOR BEE 

=1 TO 10:NEXT:BEEP 0:NEXT:CLS :RBYTE(0) :GOSUB 7110:GOTO 3710 

4000 "FILM 

4010 CLS:RBYTE(0 ) :GOSUB 12:VIEW(112,20)-(256,116 ) : RBYTE(5) :VIEW(0,0)-(639,199):C 

TRCLE(184,116 ) , 70,5,,,.2:PATNT(184,117) ,5:CTRCLE(184,20),70.6,,」,.2:PATNT(184,20) 

,6:VIEW(256,24)-(528,104 ) :RBYTE( 1 ) :VIEW(0,0)-(639,199) 

4020 FOR 1=272 TO 496 STEP 32:LINE(1,28)-(1T+8,36),0,BF:LINE(T,92)-(T+8,100),0,BF 

: NEXT 

4030 A$= "オヤ? フィ ルム テ ~ ス 。 トッ テオ キマ ス " :GOSUB 9:FFF=1:FBF=1:T=1.5:GOSUB 8:GOTO 3500 

4100 'CAMERA 

4110 CLS:RBYTE(0) :GOSUB 12:VTIEW(160.32)-(480,120) :RBYTE(1) :VIEW(0.0)-(639.199):L 

TNE(232,32)-(272,16 ) ,1:LINE-(368,16 ) , 1 :LINE-(408,32 ) ,1:PATNT(320,17 ) ,1,1:CTRCLE ( 

320,76 ) ,70,6:PAINT(320,76) ,6,6:CIRCLE(320,76),60,5:PATNT(320,76),5,5 

4115 VIEWw(344,20)-(360,24 ) :RBYTE( 5 ) :VIEW(0,0)-(639,199) 

6 9 カメ ラテ * ス 。 トリ ア エ ス ~ 、 ト ッ テ オ キッ マス" :GOSUB 9:CCC=1:CB=1:T=1.5:GOSUB 8:GOTO 3500 
PU 

5010 OUT 104,0:GOSUB 12:GOSUB 13:COLOR=( 3,0) : BC=5:GOSUB 14:VIEW(0,80)-(639,135): 

RBYTE( 1 ) :RESTORE 5020:FOR TI=1 TO 12:READ X1.Y1,X2,Y2.C:VTEW(X1 ,Y1 ) -(X2,Y2 ) : RBYTE 

(C) :NEXT:VTEW(0,0)-(639,199) :LTNE(458,33)-(490,33),2:LINE-(458,66),2 

5020 DATA 197,20,229,113,7,201.27,205,33,5,221,27,224,33,5,229,33,458,66,2,229,6 

6,442,113,6,268,74,284,.80,5,328」73,344,80,5,387,74,402,80,5,268,100,284,107,5,32 

8,100,344,107,5,372,.97,419,113,5,365,96,426,97,1 

5030 ISET &HC700,3:WBYTE(&HC834 ) 

5035 CMD(374,86) "JJ"」3,2.0,7,AND:CMD(374,86 ) , "JJ" 」3,2,2.0,OR:CMD(250,57 ) , "COFFE 

E & RESTAURANT" ,1,1.7,2,PSET 

5040 CTRCLE(456,111 ) , 4,0:CTRCLE(470,111 ) , 4,0:CTRCLE(492,111 ) ,4,0:CTRCLE(509,111 ) 

)4,0:RETURN 

5100 "テン ィ ン 

5110 OUT 104,0:GOSUB 12:GOSUB 13:COLOR=(4,0) :BC=5:GOSUB 14:VIEW(0,136)-(639,199) 

ICOTTRM40 3CRWYOr93=7R9NoHNB12TSRT &HCEA2,4:WBYTE(&HD167 ) : POLL 23,68,30:ISET &HD 

1C0, 2 

5130 PATNT(320,72) ,2,2:RESTORE 5140:FOR T=1 TO 7:READ X,Y,R,C,H:CIRCLE(X,Y) ,R,C, 

HH:PATNT(X,Y) ,C,C:NEXT:PSET(500,32 ) , 7 :PSET(518,32 ) , 7 : RETURN 

5140 DATA 140,33,3,4,1,129,74,5,2,1,304,31,3,4,1,334,31,3,4,1,500,32,5,4,1,518,3 

2.5.4。1.509。74。5、2.1 


廊 ベー シッ ク で も マシ ン 語 で も 、 と に か く コ マメ に セー ブ し よう 。" こ ろば ぬ 先 の SAVE" と も 言う 


2820 
2830 
2840 
2850 
2860 
2870 
2900 
2910 
2920 
2930 
2940 
2950 
2955 
2960 
3000 
3010 
3020 
3025 
3030 
3040 
3050 
3060 
3070 
3080 
3100 
3110 
3130 
3135 
3136 
3140 
3150 
3300 
3310 
3330 
3400 
3410 
3430 
3440 
3450 
3460 
3500 
3510 
3530 
3540 
3550 
3551 
3552 
3553 
3560 
3600 
3610 
3630 
3640 
3650 


GOSUB 60000 

TEF D=7 OR D=8 THEN 2900 

TF D=3 OR D=4 THEN RS=1:GOTO 3000 

TE D=5 OR D=6 THEN RS=2:GOTO 3000 

TEF D=1 OR D=2 THEN RESTORE 510:GOSUB 19 

GOTO 2820 

3 ロ 2 

GOSUB 5900:GOSUB *CONS 

GOSUB 60000 

TEF D=1 OR D=2 THEN 2810 

TF D=3 OR D=4 THEN RS=3:GOTO 3000 

IF D=5 OR D=6 THEN RS=4:GOTO 3000 

TF D=7 OR D=8 THEN A$=" イ キト "マリ !! "EGOSUB 9 

GOTO 2920 

%D 

GOSUB 12:GOSUB 6000:GOSUB *CONS 

GOSUB 60000 

ITF D=11 AND NM=19 AND RS=3 AND KKK<> 1 THEN A$= "カキ" カ " カカ ッ テ イ マス ":GOSUB 9 
TEF D=11 AND M=19 THEN 3100 

TIF RS=1 AND(D=5 OR D=6 )THEN 2810 

IF RS=2 AND(D=3 OR D=4 )THEN 2810 

TEF RS=3 AND(D=5 OR D=6)THEN 2900 

TF RS=4 AND(D=3 OR D=4 )THEN 2900 

GOTO 3020 

7 od 

GOSUB 6100 

GOSUB 60000 

IF D=5 OR D=6 THEN ON RS GOTO 2810,3130,2900,3130 

TF D=3 OR D=4 THEN ON RS GOTO 3130,2810,3130,2900 

IF D=12 OR D=7 OR D=8 THEN ON RS GOTO 3400,3500,3600,3700 
GOTO 3130 

) NP 

GOSUB 6300:GOSUB *CONS : RESTORE 580:GOSUB 19:T=2:GOSUB 8 
RETURN 

?R1 

GOSUB 6400:GOSUB *CONS : RESTORE 250:GOSUB 19 
A=USR( 0 ) :GOSUB 60000 

IF D=1 OR D=2 OR D=13 THEN 3000 

TEF D=15 THEN RESTORE 450:GOSUB 19:GOSUB *GCURSOR : RESTORE 410:GOSUB 19 
GOTO 3430 

"R2 

GOSUB 6700:GOSUB *CONS : RESTORE 260:GOSUB 19 
A=USR ( 0 ) :GOSUB 60000 

TF D=1 OR D=2 OR D=13 THEN 3000 

TEF D=15 THEN RESTORE 450:GOSUB 19:GOSUB *GCURSOR 

TF FBF=0 AND(X>394 AND X<480 AND Y>55 AND Y<79)THEN GOTO 4000 
TF CB=0 AND(X>=201 AND X<=270 AND Y>=21 AND Y<=41 ) THEN GOTO 4100 
RESTORE 420:GOSUB 19 

GOTO 3530 

7R3 

GOSUB 6500:GOSUB *CONS : RESTORE 270:GOSUB 19 
A=USR( 0 ) :GOSUB 60000 

IF D=1 OR D=2 OR D=13 THEN 3000 

IF D=15 THEN RESTORE 450:GOSUB 19:GOSUB *GCURSOR : IF X>=150 AND X<=490 AND Y 


>=121 AND Y<123 THEN A$=" オ ヤ ? ハト ッ ク シ ヲ メ ク ッ テ ミ マ ス " :GOSUB 9:T=1:GOSUB 8:GOTO 7210 ELSE 
RESTORE 410:GOSUB 19 


3660 
3700 
3710 
3730 
3740 
3750 


GOTO 3630 

7R4 

GOSUB 6600:GOSUB *CONS : RESTORE 470:GOSUB 19 

COLOR 4:PRINT"> "::A=USR( 0 ) :GOSUB 60010 

IF D=1 OR D=2 OR D=13 THEN 3000 

IF D=15 THEN RESTORE 150:GOSUB 19:GOSUB *GCURSOR : IF KKK=0 AND (X>502 AND X< 


554 AND Y>78 AND Y<90 ) THEN RESTORE 460:GOSUB 19:T=1:GOSUB 8:GOTO 3800 ELSE RESTO 
RE 420:GOSUB 19 


3760 
3800 
3802 


GOTO 3730 
7SAFETY BOX 
CLS:WIDTH 80,25:RBYTE(0) :VIEW(100,0)-(539,125 ) :RBYTE( 1 ) : VIEW(0,0)-(639,199) 


:LTNE(120,10)-(519,115) ,0,B:LTNE(130,30)-(140,90),0,B 


3804 
3806 
3808 
3810 


LOCATE 30,2:COLOR 7:PRINT "ELECTROLOCK SAFETY BOX" 

FOR 1T=O0 TO 2:LINE(170+ エ *120,25)-(250+T*120,65) ,0,B:NEXT 

FOR 1=0 TO 2:LINE(178+T*120,29)-(242+T*120,61 ) ,0,BF:NEXT 

COLOR 2:LOCATE 20,5:PRINT"A":LOCATE 35,5:PRINT"B" :LOCATE 50,5:PRINT"C" 


ト - 婦 そ れ で も メ ゲ そ ー に な っ た ら ブ ログラム の か わり に 自分 で 走っ て (R UN) み る 


2035 D=14 AND(J>=2 AND J<=4 ) THEN RESTORE 550:GOSUB 19:GOTO 2085 
2040 D=14 AND J=7 THEN RESTORE 200:GOSUB 19:GOTO 2085 
2045 D=14 AND(J>=5 AND J<=7 ) THEN RESTORE 140:GOSUB 19:GOTO 2085 
2050 D=14 AND J=1 THEN RESTORE 220:GOSUB 19:GOTO 2085 
2055 D=14 AND(M=6 OR M=5 )THEN AT=1:RESTORE 160:GOSUB 19:GOTO 2085 
2060 D=14 AND(M=17 OR M=6 ) THEN RESTORE 170:GOSUB 19:GOTO 2085 
2070 D=9 AND M=17 THEN RESTORE 310:GOSUB 19:T=1.5:GOSUB 8:GOTO 2100 
2075 D=13 AND(M=39 OR(M>0 AND M<5 ) ) THEN RESTORE 310:GOSUB 19:T=1.5:GOSUB 8:GO 
TO 2100 
2080 RESTORE 130:GOSUB 19 
2085 GOTO 2015 
2100 ! ハ * ン 
2110 GOSUB 5200:GOSUB *CONS : RESTORE 320:GOSUB 19 
2130 GOSUB 60000 
2135 1TF D=21 AND(M=>42 AND M<=44 )THEN A$=" ナ ニカ 1 ツ ニ シテ クタ "サイ ":GOSUB 9 
2140 1TF PEEK(SAIFU)=255 AND D=21 AND(M=>13 AND M<=15 ) THEN KE=M- 12 :RESTORE 340:GO 
SUB 19:T=1:GOSUB 8:GOTO 1800 
2150 ITF PEEK(SAIFU) =0 AND D=21 AND(M=>13 AND M<=15 ) THEN RESTORE 330:GOSUB 19:T=2 
:GOSUB 8:GOTO 10000 
2160 IF D=13 OR D=36 OR D=37 THEN RESTORE 350:GOSUB 19:GOTO 1800 
2170 GOTO 2130 
2300 アト リ ェ 
2310 GOSUB 5400:GOSUB *CONS : RESTORE 590:GOSUB 19 
2330 GOSUB 60000 
2335 IF D=1 OR D=2 THEN A$= "モウ アナ タ ハ カエ レナ イ ! ":GOSUB 9 
2336 IF D=5 OR D=6 THEN A$= "ミキ * 人 ハ 、 カ " ケ テ " シタ サヨ ウナ ラ 。 . 。" :GOSUB 9:T=2:GOSUB 8:GOTO 1000 
0 
2340 ITF D=7 OR D=8 THEN 2600 
2350 1F D=3 OR D=4 THEN 2400 
2360 GOTO 2330 
2400 'CAR 
2410 GOSUB 5500:GOSUB *CONS : RESTORE 240:GOSUB 19 
2430 GOSUB 60000 
2440 IF D=5 OR D=6 THEN 2300 
2450 IF(D=15 OR D=18)AND(M=10 OR M=45 OR M=46 )THEN RESTORE 360:GOSUB 19:GOTO 249 
0 
2460 IF D=11 AND M=19 THEN GOSUB 7000 
2470 TF(D=15 OR D=18)AND M=40 THEN GOSUB 7000 
2480 IF(D=18 OR D=15 )AND(M=34 OR M=33 )THEN GOSUB 3300 
2490 GOTO 2430 
2600 "DOG 
2602 GOSUB 5600:GOSUB *#*CONS 
KERND=INT(RND#3+1 ) 
TEF KE<>0 THEN RESTORE 230 ELSE RESTORE 370 
GOSUB 19 
GOSUB 60000 
TF D=>25 AND D<=26 THEN RESTORE 380:GOSUB 19:T=1:GOSUB 8:RUN 
TF KE=KERND AND(D=>27 AND D<=28)AND M-12=KE THEN RESTORE 480:GOSUB 19:T=1.5 
:GOSUB 8:GOTO 2700 
2616 IF KE<>KERND AND(D=>27 AND D<=28)AND M-12=KE AND REF=0 THEN KEF=1:KEN$=KE$( 
KERND ) : A$=KE$(KERND )+ "カー タ へ "タイ ト イッ ティス" :GOSUB 9:PRINT:GOTO 2626 
2618 IE KE<>KERND AND(D=>27 AND D<=28)AND M-12=KE AND KEF=1 THEN A$= "サッ キハ "+KEN$ 
+ "トイ ッ タ ケト ^ "+KE$(KERND )+" カ "ーー タ ベ ー タ イ " : KEN$=KE$(KERND ) : GOSUB 9:PRINT:GOTO 2626 
2620 IF D=7 OR D=8 THEN IF EKE=0 THEN RESTORE 490:GOSUB 19 
2621 1F (D=9 OR D=10) AND (M>=1 AND M<=4 ) THEN 1800 
2622 IF D>=1 AND D<=6 THEN A$=" ニ ケ " タ ノ ハ イイ カ " イヌ メカ" 、 オイ カケ テキ テ カフ ~ ラ レタ 。 . 。":GOSUB 9:REST 
ORE 500:GOSUB 19 
2624 IE D=32 OR D=30 THEN RESTORE 540:GOSUB 19 
2626 GOTO 2610 
2700 ” ヶ "ンカ ン 
2710 GA=0:GOSUB 5700:GOSUB *CONS 
2720 GOSUB 60000 
2730 IF D=3 OR D=4 THEN 2400 
2735 1F D=47 AND(M>=50 AND M<=52 ) THEN A$=" タ *" レモ テ ^` テキ マセ ヤン カキ"~ 八 カカ ッ テ イ ナイ ヨウ テ ~ ス ":GOSUB 
9 
2740 IF D=11 AND M=19 THEN GA=1:COLOR=(2,0 ) 
2750 IF(D=12 OR(D>=7 AND D<=9 ) ) AND(M=6 OR M=17 OR M=41)AND GA=1 THEN 2800 
2760 IF(D=8 OR D=12 )AND GA=1 THEN 2800 
2770 GOTO 2720 
2800 ' ロ 1 
2805 BLOAD "k3m2.dat" 
2810 GOSUB 5800:GOSUB *CONS 


em」 
胸 友 長い 時 間 打ち 込む 時 、 モ ニタ ー の コン トラ スト を あげ すぎ て いる と 、 そ ー と 一 ツラ イソ ひか え 目 に ネ 
ーー と 


230 DATA "コワ ソ ウナ イヌ カ " イマ ス ! オナ カカ " ヘッ テイ ル ノ カ ナ ?" 」 ネ 
240 DATA "クル マカ *" アリ マス 。 カメ ラマ ン ノ クル マテ ^ ス "。 ネ 
250 DATA "キッ チン ルー ム テ " ス "」 ネ 
260 DATA" シ ョ サイ テ * ス リュ キネ 
270 DATA" カ メラ スタ シ " オ テ " ス リネ 
280 DATA "オキ ャ クサ ン ! ナニ カ サカ " シモ ノ テ * スカ" , ネ 
290 DATA "ソン ナニ オチ ツイ テテ イイ ン テ *^ スカ " , ネ 
300 DATA "ワタ シタ チカ "ココ ノ シ ` ュ ウ キ *" ョ ウイ ン テ * スリ 」 ネ 
310 DATA" オ カエ リ テ " ス カリ", ネ 
320 DATA" ケ ー キ 、 ハ " ン 、 ク ッ キ ー ヲ ウッ テイ マス 。 オ ミヤ ケ * ニ イカ カ " テ ^ スカ " 。 ネ 
330 DATA" モ シカ シテ オカ ネ カ " ナイ ン シ " ャ ナイ テ ^ スカ ! GAME OVER ..." 
335 DATA" ト * コカ テ ^ サイ フ ヲ す サカ ~ シテ キマ ショ ウリ 。 ネ 
340 DATA" ア リカ" トウ コ " サ ~ イマ シタ 。 マ タ ノ コ "~ ライ テン オマ チ シ テ イマ ス " , ネ 
350 DATA "マタ ノ コ " ライ テン オマ チ シ テ イマ ス "' , ネ 
360 DATA" サ * セキ ニ ナニ カオ イ テ ア ル ヨ ウゥ ウ テ ^ ス "」 ネ 
370 DATA" コ ワ ソ ウナ 八 " ン ケ ンカ "イマ ス 。 " 」 ネ 
380 DATA" ア ナタ ハハ" ン ケ ン ニ カマ レ テ 、 GAME OVER ...." 
390 DATA "モウ イチ ト ^ サイ ショ カラ カ ~ ン ハ ~ ッ テ ネ ! リネ 
400 DATA" オ ヤッ ? へ "ツノ へ ヤ カ " アル ミタ イタ ~ "キネ 
410 DATA "コレ トイ ッ テ カワ ッ タ コト ハ ナイ ヨウ テ ^ ス "。 ネ 
420 DATA" ナ ニモ ミツ カリ マセ ン テ ^ シタ " 。 ネ 
440 DATA" タイ ヘン タ "^ ! ケイ コチ ャ ンカ "アフ" ナイ! リネ 
450 DATA" サカ" シタ イト コロ へ + ) カー ソル ヲ ア ワ セ テ RETURN key ヲ オシ テク タ ~ サ イリ 」 ネ 
460 DATA" ナ ンタ * コリ ャ ? イマ ハヤ リノ テン シロ ッ ク カ ナナ? リネ 
470 DATA" シ ャ シン ノ アン シ ツ テ ~ ス アカ イロ ノ テ " ン キ カ ^` ツイ テイ マス " , ネ 
480 DATA" オ ナカ カ ^ ヘッ テイ ル ノ カ ムチ ュ ウ テ " タ へ " テイ マス 。 イ マ ノ ウ チ ニ 。。。" 」 ネ 
490 DATA" イ ヌカ "イル ノ テ *" ト オ レ マセ ヤン"'。 ネ 
500 DATA "ソチ ラ ヘ へ ハ イケ マセ ヤン" ,」 ネ 
510 DATA" ソ ッ チ ハ テ * ク *" チ テ * ス 。 コラ ッ ! こ ケ "ルン シ ^ ャ ナイ ! 
520 DATA" ケ イコ チャ ン ヲ タス ケ ナ イ ト タメ ! ヒキ ョ ウ モ ン ! リネ 
540 DATA" カ "ウゥ ウッ ! 。 ムチャクチャ オ コ ッ テイ テ テカ " タ ~ セ マ セ ヤン "。, ネ 
550 DATA "ソウ イ ウ カタ ハ タク サン コラ レ マ ス カラ ネェ 。。。。。" 。 ネ 
560 DATA" マ ツ サ ^ カサ ント カ オキ " ノ メ サ ン 、 サ イト ウサ ン 。。。。『" 
570 DATA" チ ョ ッ ト ワカ リカ ネ マ ス 。。。。「 」 キ 
580 DATA" オ コト ワリ : コノ ナン ハ ~ ー ハ カク ウノ モノ テース" 」 ネ 
590 DATA" ヒ ロー イ ニワ ノ ナ カ ニ よ ? ツン ト アト リエ カ " タッ テイ マス " 
600 DATA" ヒ タ " リカ "ワリ ニハ クル マカ " トマ ッ テ イ マス " 」 ネ 
1000 DIM C%(79) :RESTORE 1020:FOR 1=0 TO 79:READ C$:C%( 1) =VAL("&H"+C$ ) : NEXT 
1010 X=150:Y=48:SCREEN 0,0 
1020 DATA 28,A,FOFEF,0,7F,FFOF,80FF,0,0,FF00,38C6 , 1FFE 
1021 DATA 3800,1FO7,E0,3806,FE,9FF1,FF78,8F,760,703C,1FOO,FF78 
1022 DATA E780,183C,C7FEF,C000,7907,B8,183C,COFEF,80,0,7FO3,FFFF 
1023 DATA FCFF,60.0.0,.0.0,FFFF,FFFF,COF8,3C00,.0,.0 
1024 DATA O,FFOO,FEO7,1FF8,0,2.0.70,C003,.71FC,E3FF,C7 
1025 DATA 270,C003,7000,300,FCCO,FF71.C7E3,70FO0,302,FFC7 ,FFO7 ,1FF8 
1026 DATA 0,0,0,.0,0,.0,0,0 
1050 FOR X=150 TO 1 STEP -1:PUT(X,Y) ,C%,PSET:LINE(X+40.48)-(X+40,.57 ),1:BEEP 1:FO 
R B=1 TO 5:NEXT:BEEP 0:NEXT:SCREEN 0,PEEK(&HF272 ) : RETURN 
JJ 
T=1:GOSUB 8:GOSUB 5000:GOSUB *CONS : RESTORE 100:GOSUB 19 
GOSUB 60000 
TF(D=8 OR D=7 OR D=12)AND(M>=1 AND M<=4)THEN 1900 
TF D=9 AND(M=17 OR M=41)THEN 2300 
GOTO 1830 
? JJ ナカ 
GOSUB 7600:GOSUB *CONS : RESTORE 110:GOSUB 19 
GOSUB 60000 
TF(M>=13 AND M<=15 )AND D=21 THEN 2100 
TEF D=18 OR D=22 THEN RESTORE 280:GOSUB 19:GOTO 1990 
TF D=33 AND M=35 THEN RESTORE 290:GOSUB 19:GOTO 1990 
TF(M=36 OR M=37 )AND(D=34 OR D=35 ) THEN RESTORE 290:GOSUB 19:GOTO 1990 
TF(D=16 OR D=14)AND(J>=11 AND J<=13 ) THEN. 2000 
TF D=13 THEN RESTORE 350:GOSUB 19:GOTO-.1800 
GOTO 1930 
テン イン 
GOSUB 5100:GOSUB *CONS : RESTORE 300:GOSUB 19 
GOSUB 60000 
TIF(M>=13 AND M<=15 ) AND D=21 THEN 2100 
TF PEEK(PHOTO ) =0 AND D=20 AND M=9 THEN RESTORE 150:GOSUB 19:GOTO 2085 
TEF PEEK(PHOTO) =255 AND D=20 AND M=9 THEN GOSUB 5300:GOTO 2085 
TF(M=36 OR M=37 )AND(D=34 OR D=35 ) THEN RESTORE 290:GOSUB 19:GOTO 2085 
ITF J=2 THEN RESTORE 560:GOSUB 19:GOTO 2085 


廊 あ と は 「 見 た い 、 や り た い 、 遊 び た い 」 と 3 回 と な え 、 気 持ち を フル イ 立 た せよ う / 


く 


:PRINT"_ へ N" 
PRTNTT デ " 


LOCATE 24, 
LOCATE 24, 
COLOR 2 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
COLOR 3 
LOCATE 29,12:PRTINT "テン キー テ * ソウ サリ " 

COLOR 5 

? PUT LOOP 

LOCATE 11,20:PRTINT "スペ" - ス キー ヲ オシ テク タ * サイ 。"' 
LOCATE 13,22:PRTNT "ケー ムカ " ハシ" マリ マス 。「 5: 
T$=INKEY$ 

PUT( 328,60 ) ,A%,PSET:FOR IT=0 TO 100:NEXT 
TF T$=" "THEN 5000 
PUT(328,60 ) , B%,PSET:FOR T=0 TO 100:NEXT 
TF 1]$=" "THEN 5000 

GOTO 4020 

? NEXT PROGRAM 

RUN "k2.bas" 

END 


:PRINT"8" 

:PRTNT"2" 

:PRTINT"4" 

:PRINT"6" 

: PRINT" へ ヤ へ 。 ノー ェ エレ ルレ ベ ーー タ へ へ" 
:PRINT" ハ イル へ ヽ = ニ フル ノリ" 
: PRTNT" ロ - カ ヲ " 

: PRTNT" ア ルク" 

: PRINT "へ ヤ YA へ " 

: PRTINT" ハ イル" 


1 CLEAR BA 0: :ON _ ERROR _GOTO 70:)KEIKO3 'sa k 


2 POKE &HEEAB,0:POKE &HEEAC ,&HBB :POKE &HEEAS8, mn0: PSKE &HEEA9 ,&HBB:POKE &HEEA2,& 
H30:POKE &HEEA3 ,&HBD : POKE &HEEA5, &H10:POKE &HEEA6 , &HBC: POKE &HEEB7 , &H90:POKE &HE 
EB8,&HBD:DEF USR=&H35D9:POKE &HF274,0:ON STOP GOSUB 50:STOP ON 
3 FITELD #0,12 AS ST$:ST$=DSKT$( 1 , 1 ,39,14 ) :FOR T=1 TO 12:POKE &HF29F+T,ASC(MTD$(S 
T$,T,1 ) ) :NEXT : BLOAD "kg2.obj":BLOAD "k3m1.dat":BLOAD "tile.dat":BLOAD "ksym.dat" 
4 SCREEN 0,PEEK(&HF272) :WTDTH 40,20:CONSOLE 0,20,.0,1:GOSUB 12:GOSUB 7:COLOR 7.0: 
CLS: GOSUB 7:AT=0:KE=0:FUKU=0 : PHOTO=&HF260:SAIFU=&HF261:FFF=0:CCC=O0:FBF=0:CB=0: 
KE$( 1 ) =" ケ ー キ ":KE$(2) = リハ リッ ン ":KE$( 3 ) = リク ッ キ ー":KEF=0 

GOTO 1800 

*CONS :WIDTH 40,20:CONSOLE 14.6:CLS:RETURN 

RANDOMIZE(VAL(RTGHT$(TITME$, 2 ) )*500 MOD 30000 ) :RETURN 

FOR IT=0 TO 1000*T:NEXT:RETURN 

FOR M=1 TO LEN(A$) :B$=MID$(A$,M, 1 ) :TF B$=" 

COLOR 5:BEEP ]1:PRINT B$::BEEP 0 


"THEN PRINT" "):GOTO 11 


FOR TO TO 10 


: NEXT:NEXT:COLOR 7 :RETURN 


FOR PLT=1 TO 7:COLOR=(PLT,PLT ) 


・NEXT : RETURN 


COLOR 7,0:VIEW(0,0)-(639,199) :RBYTE( 0 ) :CLS : RETURN 
VIEW(0,0)-(639,135 ) :RBYTE(BC) :VIEW(0,0)-(639,199 ) 


・BC=1 :RETURN 


FOR T=14 TO 19:PRINT SPC(40) :LOCATE 0,I:NEXT:RETURN 


LOCATE 2,19:COLOR 6:PRINT" < く ス へ ?" - ス キー〉> ヲ オシ テク タ " サイ " ェ 


:S$=TNPUT$( 1 ) 


H IF S$=" "THEN GOSUB 15:RETURN ELSE 16 

H READ A$:TF A$="*"THEN RETURN ELSE GOSUB 9:PRINT:GOTO 19 
! A=&HF2A0:CALIL A 

1 TF ERR=62 OR ERR=64 THEN BEEP:A=USR( 0 ) :PRINT "Disk ヲ セッ トシ テ Hit Ary Key !":S$= 
1 TNPUT$( 1 ) : RESUME ELSE PRINT ERL,ERR :RESUME NEXT 

1 DATA"COFFEE & RESTAURANT <JJ> テ ^ スリ 」 ネ 

1 DATA "JJ ノ テン ナイ テ " ス 。 マス ター カ " 「 イ ラッ シャ イマ セ 」 ト イイ マシ タ " 」 ネ 

1 DATA "アァ コノ カタ ナラ カメ ラマ ント フタ リ テ " ココ ニ コラ レ マ シ タ ヨ "。 ネ 

H DATA" サ ァ ッ ソノ コト ニ ツイ テハ チョ ッ ト ワカ リカ ネ マ スカ ~ ・・" , ネ 

H DATA "ソノ タ " ン セ イハ ヨク コラ レッ マス ヨリ ", ネ 

H DATA "ハハ ー アカ モリ アキ ナ テ ~ スカ ! ファ ンク ラフ " ノ カイ イン ショ ウ テ ~ スネ ", ネ 

H DATA" コ ユノ カイ カ " ン ゾ ナイ ニ アル アト リエ テス "」 キ 

1 DATA" キ ン シ ^ ョ ノ ヒト タチ ハ 「 ホ ワイ トキ ャ ッ ス ル 」 ト ヨン テ ~ イ マス" 。 ネ 

DATA "ケイ コチ ャ ン ノ フク ノ ヨウ テ ~ ス "」 ネ 

1 DATA" フ ク ヲ トリ マシ タリ 」 ネ 

H DATA "ソノ カメ ラマ ン ハ サイ キン スコ ~ イ ウレ ッ コ 。 サー ッッ シノ " 

H DATA" ク "ララ ヒ * ア ナ ト " ヌー ト " ヲ ハッ ヒ " ョ ウ サレ テイ マス ヨリ , ネ 

H DATA " ナマ エ テ " スカ タ シ カ 「 タ チキ チ サン へ ? イ 」 タ ~ ツタ ト オモ イマ ス " , ネ 


1 文 恐 光 ペ ン ( マ ー カ ー 等 ) で 打ち 込み 終わ っ た リス ト を チェ ッ ク し て いく 


58000 A$=" ケ イコ チャ ン ノ へ ヤ タ " ! "EGOSUB 190:A$="Disk か が セット サレ テイ タラ Push any key!":GOSUB 19 
0 

58001 A=USR(0 ) : S$=TNPUT$( 1 ) :CLS 

58010 RUN "room.bas": 7 ウル END: RUN"R" 

59130 FOR 1=0 TO 10:BEEP 1:BEEP 0:NEXT:RETURN 

59140 FOR IT=0 TO 10 :BEEP 1:FOR J=0 TO 50:NEXT:BEEP 0:NEXT:RETURN 

59150 FOR IT=0 TO 50:BEEP 1:FOR J=0 TO 10:NEXT:BEEP 0:NEXT:RETURN 

59160 BEEP 1:FOR T=0 TO 100:NEXT:BEEP 0:FOR 1=0 TO 50:BEEP 1:FOR J=0 TO 10:NEXT: 
BEEP 0:NEXT:RETURN 

59170 FOR T=0 TO 100:BEEP 1 BEEP 0:NEXT:RETUR 
N 

60000 DATA 14,10,0,0,0,6000,0,0,0,700,EFE,0 

60010 DATA 0,0,FF1F,8F,0,0,7FO0,EFFF,FFFF,FFFF,FFFF,0 

60020 DATA 1F00,8F9F,FF7F,7FEF,EFFF,9010,FO80,FOFO,FOFO,1CFO,8C9C,FCFC 

60030 DATA FCFC,FCFC,9010,F080,FOFO,FOFO,FFO,FOF,FF7F,7FEF,EFFF,0 

60040 DATA 1F00,8FFF,F1F,8F,0,FC03,630C,CFC,0,0,8F7F,F8 

60050 DATA 0,0,F001,7CC0,C000,0,300,30,F3C,8F,0,0 

60060 DATA EO0,EF1F,0,0 

60070 DATA 14,10,0,0,0,6000,0,0,0,700,EFE,0 

60080 DATA 0,0,FF1F,8F,0,0,7FO0,EFFF,FFFF,FFFF,FFFF,0 

60090 DATA 1F0O0,8F9F,FF7F,7FEF,EFFF,9010,FO80,FOFO,FOFO,13FO,8393,F3F3 

60100 DATA F3F3,F3F3,9010,FO80,FOFO,FOFO,FFO,FOF,FF7F,7FEF,EFFF,0 

60110 DATA 1F00,8FFF,F1F,8F,0,FC03,30C,6CFC,0,1F00,EO,100 

60120 DATA F1,0,F830,3008,E303,0,0,CCC,31F,C3,0,0 

60130 DATA 7F00,787,0,0 


7aave"k2r。bas" 
10 ?KETKO-2 GAME 
1000 DATA 14,10.0,.0,0,6000.0,.0,.0,700,EFE,0 
1010 DATA 0,0,EF1F,8F,0,0,7FO00,EFFF,FFFF,FFEFEF,FFEFEF,0 
1020 DATA 1FO00,8F9F,FF7F,7FEF,EFFF,9010,FO080,FOFO,FOFO,1CFO ,8C9C,FCFC 
1030 DATA FCFC,FCFC,9010,FO80,FOFO,FOFO,FFO,FOF,FF7F, 7FEF ,EFFF,0 
1040 DATA 1FO00,8FEFF,F1F,8F,0,FC03,630C,CFC,0,0,8F7F,F8 
1050 DATA 0,0,FO01,7CCO0,C000.0,.300,.30,F3C,8F,0,.0 
1060 DATA EOO,EFE1F,0,0 
1500 DATA 14,10,.0,.0,0,6000,0,0,0,700,EEFE,0 
1510 DATA 0,0,FF1F,8F,0.0,7FOO,EFEFEF,FFFF ,FFFF,FEFEFEF,0 
1520 DATA 1FO00,8F9F,FF7F,7FEF,EFFF,9010,FO080,FOFO,FOFO,13FO,8393,F3F3 
1530 DATA F3F3,F3F3,.9010,FO80,FOFO,FOFO,FFO,FOF,EF7F,7FEF,EFEF,0 
1540 DATA 1FO00,8FEFFE,F1F,8F,0,FC03,30C,6CFC,0,1FOO,EO,100 
1550 DATA F1,.0,F830,3008,E303.0,.0,CCC,31F,C3,.0,0 
1560 DATA 7FO0,787,.0,0 
2000 "TNIT 
2010 SCREEN 0,3:WIDTH 40,25:CONSOLE 0,25,0,1 
2020 COLOR 4:LOCATE 8,6:PRINT" ケ イコ チャ ン ノ マン ショ ン ニニ ツキ マシ タ " 
2030 CLS 2:FOR PLT=0 TO 7:COLOR=(PLT , PLT ) : NEXT 
2040 DIM A%(76 ) , B%(76 ) 
2050 RESTORE 1000:FOR IT%=0 TO 75:READ A$:A%(T%) =VAL("&H"+A$) :NEXT 
2060 RESTORE 1500:FOR T%=0 TO 75:READ B$:B%(T%) =VAL( "&H"+B$ ) : NEXT 
2070 'EFOR TIM=0 TO 3000:NEXT 
2080 DISP 
3000 CLS:COLOR=( 4,0 ) :COLOR=( 0, 1 ) :SCREEN 0,0 
3010 COLOR 2 
LOCATE 1。 2:PRTINT" ケー ム ノ セツ メイ " 
COLOR 3 
LOCATE 1, 4:PRTNT" マン ショ ン ノ ナカ ヲ " 
LOCATE 1, 6:PRINT'" アル キ マ ワ ッ テ " 
LOCATE 1, 8:PRTNT" 「 ケ イコ チャ ン 」 ノリ " 
LOCATE 1,10:PRINT" ヘ ヤ ヲ サカ "~ シテ ネ " 
COLOR 6 
LOCATE 20,2:PRINT" ノ へ" 
LOCATE 20, 3:PRINT" | 
LOCATE 20, 4:PRINT" | 
LOCATE 20,11:PRINT" 
LOCATE 20,12:PRINT" 
LOCATE 20,13:PRINT" ヽ ン " 
LOCATE 15, 7:PRINT" ノ ーー" 
LOCATE 15, 8:PRINT"N 


文 験 を うた う ( ウ ソウ ソ ) 


ーー ドーーーーーーーーー ニ ーー ニー ニー ニー ニー ニー ドニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニニ ーー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー 人 ーー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニニ ーー ニー ニー ニー ここ ーー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー 


40550 WBYTE(&HD91E) :POLL 50,78,38 

40560 WBYTE(&HD923 ) :POLL 80,132,23 

40570 WBYTE(&HD928) :POLL 118,136,22 

40580 WBYTE(&HD92D ) : GOSUB *CONS 

40590 A$=" コ ン フ * ウ テ イ エン シ " ョ ウ トーイ ウ ラク コ " カ が "イマ ス 。":GOSUB 185:A$="「 エ ー オ ワ ラ イ ヲ ニー イッ セキ ・・・」「: 
GOSUB 185 

40595 ON INT(RND*7 )+1 GOTO 40600,40610,40620,40630,40640,40650,40660 

40600 A$="「 コ ー シ " ラ カ " テー ルフ ハー イツ タ ~ 2?" :GOSUB 185:PRINT:A$="「。.。.5 財 タタ"」":GOSUB 190:GOTO 4 
0700 

40610 A$="「 ク ライ トコ ロ テ ^ ナニ ヤッ テン ネン ?」 『 シ ー」" :GOSUB 185:A$="「 ニ オウ テ * 。。。」 「『 ヘ ェ ー』":GOSUB 19 
0 :A$="「 キ ハ " ッ テル ナ 」 「 ン ー !」" EGOSUB 190:GOTO 40700 


40620 A$="「 時 ケイ カ " ヒト ヲ ヨ フ ~ ハナ シ 」":GOSUB 185:A$="「 コ ッ チ 、 コッ チ 、 ッ 』":GOSUB 190:GOT 
O 40700 

40630 A$="「 シ ンカ ン セ ン ノ ナカ テ ^~ サワ ク ^ ナ !」":GOSUB 185:A$="「 モ ッ ト シン カン セン !」":GOSUB 190:GOTO 407 
00 

40640 A$="「 オ マエ ハ ?" ソコ ン マニ ア カ ?」":GOSUB 185:A$="「 イ ヤ 、 ロ リコ ン ヤ 」":GOSUB 190:GOTO 40700 
40650 A$="「 シ / ノ セカ イカ ラ コ エ ヲ カケ ラ う レ ル ハナ シリ":GOSUB 185:A$="「 ア ノ ョ ー」":GOSUB 190:GOTO 40700 
40660 A$="「 テ " ン シ ャ ノ タ * ッ セン シ " コ カ " アッ タケ ト *" アシ タ ノ シン フ " ン ニニ タ ~ セ マ ス カネ ェ ?』」":GOSUB 185:A$="「 ソ 
リャ タダ ーッ セ キン !」" :GOSUB 190:GOTO 40700 

40700 A$="「 オ ソ マ ツ サマ 」 ショ ウ モ ナイ シャ レ ヲ キ カ サ レル ト " ッ ト ツ カ レ カ " ・・・ タイ リョ ク -3":TA=TA-3:GOSUB 185:T 
=2:GOSUB 180:RETURN 

41000 ” 

41010 SCREEN 0,3:GOSUB 200:WIDTH 40:CONSOLE 14,6:RBYTE(0) :SCREEN 0,PEEKR(&HF272 ) 
41020 VIEW(232.8)-(407,120) :RBYTE(5) :VIEW(0,.0)-(639,199) 

41040 CIRCLE(320,32),6,7:PAINT(320,.32).0,7 

41050 LINE(182,24)-(215,47),7,B:PAINT(185,25),1,7 

41060 FOR T=28 TO 40 STEP 4:LINE( 186,1I) -(210,1) ,7 :NEXT 

41070 FOR TI=186 TO 210 STEP 4:LINE(T,28) -(T,40) ,7:NEXT 

41080 CIRCLE(198,44),4.6:PAINT(198,44),6,6 

41090 CIRCLE(250.68) ,7,6:PAINT(250,.68),6,6 

41100 RETURN 

41200 'OPEN 

41210 VIEW(233.9)-(406,119):RBYTE(0):VIEW(0,.0)-(639,199) 

41220 LINE(407.8)-(296,20),5:LINE-(296,108),5:LINE-(407,120),5:LINE-(407,8) ,5:VI 
EW(296,20)-(407,108) :RBYTE(5) :VIEW(0,0)-(639,199) :PAINT(400,10),.5:PAINT(400,110) 


す 

41230 CIRCLE(344.32).6,.7,,,.7:PAINT(344.32),0,7 

41240 CIRCLE(304,68),7,6,,,.7:PATINT(304,68),6,6 

41250 IF R%(KAI,XX) =21 THEN PATINT(234.9),7,5 

41299 RETURN 

42000 'ENPTY 

42010 BC=1:GOSUB *BACK:LINE(172.30)-(468,105),7,B 

42020 LINE(0.0)-(172.30),7:LINE(0,135)-(172.105),7 

42030 LINE(639,0)-(468,30),7:LINE(639,135)-(468,105),7 

42040 A$= "ナァ アン ニモ アリ マセ ン 。 ト ~ ウ ヤ ラ アキ へ ^ ヤ ノ ヨウ テ ^ ス ":GOSUB 185:T=1:GOSUB 180:RETURN 

43000 A$=" ト ヒ ^ ラ ヲ ア ケ ル ト ソコ ュ ハ カ ^" ゲッタ ":GOSUB 185:T=1:GOSUB 180:RETURN 

44000 !' ヶ " ン コツ 

44005 PICT=3:TF PICT<>DATNO THEN GOSUB *LOADING.DATA3 :DATNO=PICT 

44010 OUT 104.0:BC=2 :GOSUB *BACK :GOSUB 200 

44013 ISET &HD946,.0:PAINT(369,20),6,0:PAINT(421.59),6,.0 

44014 CMD(80.40)」" リ ハバ" コ ュ コーン 00046.3.0,7,AND :GOSUB *CONS 

44020 A$="「 ヒ トノ ヘ へ ヤ ニ カッ テニ ハイ ルナ ッ !!」" EGOSUB 190:A$=" ナ クラ レタ !! タイ リョ ク -5":TA=TA-5:GOS 
UB 185:T=1.5:GOSUB 180:RETURN 

45000 ! ヵ カナ ツチ 

45005 PICT=3:TF PICT<>DATNO THEN GOSUB *LOADING.DATA3 : DATNO=PICT 

45010 OUT 104,0:BC=2:GOSUB *BACK:GOSUB 200 

45011 TSET &HD9D8,6:PATINT(503.39),6,.6:TSET &HD9E9,1:PAINT(434,.5) ,1,1 

45015 CMD(80,.40),」" コ オォ オーン 20.6.3,.0,7,AND : GOSUB *CONS 

45020 ITF TREK<>9 THEN A$="「 ト "ロホ" ウ タリ ッ ! コノ ヤロウ !」 トト "ロホ" ウト マチ カ ^ エラ レ テ " :GOSUB 185:A$=" ナ ク 
* ラ レタ 。 タイ リョ ク -10" 

45030 TA=TA-10:GOSUB 185:T=2:GOSUB 180:RETURN 

46000 ' ヤカン 

46010 GOSUB 200:BC=2:GOSUB *BACK:CTRCLE(282,42),10,6:PAINT(282,42),6,6:CIRCLE( 32 
0,70),85.6,2.9,1.4:LINE(334,.28)-(238,61) ,6 

46011 PAINT(323.37),6,.6:LINE(369,40)-(378,16),6:LINE-(398,10),6:LINE-(404,52),6: 
LINE-(396,55),6:PAINT(388,23),6,6 

46020 CIRCLE(275,.35),69,6,.15,4.2:CIRCLE(275.35),67,6,.15,4.2 

46024 CMD(80,.40)」" ス コーン "PJ6.3.0,7,AND 

46030 A$=" ヤ カン ヲ フ * ツケ ラル レル テ タイ リョ ク -5":GOSUB 185:TA=TA-5:T=1:GOSUB 180:RETURN 

50000 コノ ルー チン ニニ オセ ワ ニ ナル 人 八 「 コ "マン 」 トト イル 。。。 

50010 A$=" サ *" ン ネ ン ナ カ " ラ ケイ コチ ャ ン ノ へ ヤ へ イク コト カ " テ ^ キマ セン テ ~ シタ 。 。。 "EGOSUB 185 

50020 A$=" テ ^ ハハ サイ ショ カラ モウ イチ ト " ト "ー ソ " ":GOSUB 190:T=2:GOSUB 180:RUN 


の 
し つい うい 文 拡大 コ ー を と る 


38530 
38540 
38550 
38590 
38600 
38610 
38620 
38625 
38630 
38640 
38650 


WBYTE(&HCB19 ) : POLL 
WBYTE(&HCB2E ) : POLL 
WBYTE(&HCB43 ) : POLL 
WBYTE(&HCB4C ) : POLL 
A$=" ト "ラキ ュ ラ カ か" イマ ス 。 


12.96,39 
80,134,70 
24,134,21 
2,52,55:GOSUB *CONS 
『 チ カ " ホシ イィ ィ ッ !」" EGOSUB 600 


RESTORE 912:GOSUB 800 


ON C GOTO 38630,386 
GOTO 38600 

A$=" チ ヲ スワ レ テ タイ リョ ク 
RETURN 

A$= "アナ タ ハ ユウ カン ニ タタ カッ 


40,38650 
-30":TA=TA-30:GOSUB 185:T=1:GOSUB 180:RETURN 


タ 。 イサ マシ イ スカ " タ タバ ッ タ 。" :GOSUB 185:A$=" シ カシ 、 アワ レニ モ コロ サレ テシマ ッ タ 


・・ GOSUB 185:TA=0:T=2.5:GOSUB 180:RETURN 


39000 
39005 
39010 
39020 
39030 
39040 
39050 
39060 
39080 
39090 


:A$=" ト 


PRO 


PTCT=3:TF PICT<>DATNO THEN GOSUB *LOADING.DATA3:DATNO=PICT 
OUT 104,0:BC=1:GOSUB *BACK:GOSUB 200:COLOR=( 4,0) 


TSET &HCB51,4 

WBYTE(&HCE3A ) : POLL 
WBYTE(&HCE5F ) : POLL 
WBYTE(&HCE6C ) : POLL 
WBYTE(&HCE7 1 ) : POLL 


14,136,29 

58,92,8 

12,.44,27 
2.24,34:GOSUB #*CONS 


PAINT(266,40) ,0,4:WBYTE(&HD9FA ) :CTRCLE(266,27),2,0 


A$="「 ナ ニカ ヨウ ?」":GOSUB 185:A$=" ワ タ シ ネ 、 


ッ ク ン チュ ウ ! チョ ウト "イイ トコ 


了 アルノ テ ^ " :GOSUB 185 
ナ ケ * ト 八 ~ サル テ タイ リョ ク 


コン トド ジー シワ" ロ フシ アイ が 
ロ へ キタ ワ ネ *":GOSUB 190:A$="「 ト ゥ ウー リヤ ーッ 151 よー 。。・ 


-8":TA=TA-8:GOSUB 190:GOSUB 300:RETURN 


39500 
39505 
39508 
39510 
39520 
39530 
39540 
39550 
39560 
39580 
39590 
39600 
39610 
39620 
39635 
39640 


?N-MODEL 
GOSUB 46000:GOSUB 2 


50 


PICT=3:TF PICT<>DATNO THEN GOSUB *LOADING.DATA3:DATNO=PICT 
:GOSUB *BACK:GOSUB 200:COLOR=(4,0) 


CLS:OUT 104,.0:BC=1 
TSET &HCE76,4 
WBYTE(&HD32B ) : POLL 
WBYTE(&HD344 ) : POLL 
WBYTE(&HD349 ) : POLL 
WBYTE(&HD35A) : POLL 
WBYTE(&HD35F ) : POLL 
WBYTE(&HD364 ) : PSET ( 
A$= "ワタシ ハ ヌー ト " モテ *" ル 
RESTORE 920:GOSUB 8 
ON C GOTO 39640,396 
GOTO 36130 

MO= 1 : A$=" イ ヤラ シイ ヌー ト * 


0,136,39 

0,70,41 

52,58,12 

26,36,9 

56,136,69 

264,16 ) , 7 :PSET(244,28) ,7 :GOSUB * ネ CONS 

。 。 コ ~ メン ナ サ イ ヤカン ナン カ フ " ツケ チャ ッ テ 。":GOSUB 600 

00 

45,39650 

ナン テ *" モ スケ テ ウツ ル カメ 


セン モン ノ カメ ラマ ンカ ~ イ テ ":GOSUB 185:A$=" ソ イツ か ^ 


ラ ヲ ツク ッ テ ネ ":GOSUB 190:A$=" ツ キマ トワ レ テ ル ノ ョ ":GOSUB 190 


3964 1 A$=" マ タ ソイ ツ カト オモ ッ テ ヤカン ナ ケ " チャ ッ テ 。 


コ * メン ナ サ イ " : GOSUB 190:A$=" テ アテ シテ モラ ッ テ タイ リョ ク +5 


"TA=TA+5:GOSUB 190:T=2:GOSUB 180:PRINT:PRTNT:GOSUB 300 


39645 
39650 


RETURN 
TRK=9:A$="「 キ ャ ーッ ! エッ 


チ ! トル コシ ~ ョ ウト イッ ショ ニ シナ イ テ ~ !」" :GOSUB 185:A$= "ナク" ラ レ テ タイ リョ ク - 


10":GOSUB 190:T=1.5:GOSUB 180:GOSUB 45000:TRK=0 


39660 
40000 
40005 
40010 
40020 
40030 
40040 
40050 
40060 
40070 
40090 
40100 
40110 
40120 
40130 
40135 
40140 
ト " コカ へ 
40150 
40160 


RETURN 
Kou 


PICT=3:TF PITCT<>DATNO THEN GOSUB *LOADING.DATA3 :DATNO=PICT 
OUT 104,0:GOSUB 200:COLOR=(4,0) :BC=3:GOSUB *BACK 


ISET &HD36D,4 

WBYTE(&HD6DE ) : POLL 
WBYTE(&HD6FB ) : POLL 
WBYTE(&HD714 ) : POLL 
WBYTE(&HD725 ) : POLL 
WBYTE(&HD72E ) :POLL 
WBYTE(&HD733 ) : POLL 
PAINT(293,120) ,6,4: 
A$=" ア ナタ ト テ *ー ト シタ イ 1!! 


68,134,14 
70,110,7 
68,100,4 
102,136,2 
0,92,62 
24,116,39 
GOSUB *CONS 
":GOSUB 600 


RESTORE 922:GOSUB 800 
ON C GOTO 40140,40150,40160 


GOTO 40110 
A$="「 ワ ァ ッ ホン トニ ー! ! 
イッ テ シマ イマ シタ 。。。 
RETURN 


A$="「 キ ャ ー! エッ チッ ! 


ワタ シ イマ ソン ナ キモ チ シャ ナイ ノ !」":GOSUB 185:A$= "ナク"` ラウ レ テ タイ リョ ク 


キャ ッ キャ ッ 」』」" : GOSUB 185:A$=" ア ナタ ハ ケイ コチ ャ ン ヲ ワ ス レ テ ":GOSUB 190:A$=" 
GAME OVER" :GOSUB 190:END 


RK=9:GOSUB 45000:TRK=0:RETURN 


40500 
40505 
40510 
40520 


?ENJYO 


PTICT=3: IF PICT<>DATNO THEN GOSUB *LOADING.DATA3:DATNO=PICT 
OUT 104,0:BC=0:GOSUB *BACK:GOSUB 200:COLOR=(4,0) :POLL 0,136,10 


ISET &HD740,4 
WBYTE(&HD915 ) : POLL 


16 , 98,41 


廊 リ スト を 打ち 込み や すく する た め 


-10":F 


36010 CLS:OUT 104,0: :GOSUB *BACK:GOSUB 200:COLOR=(4,0) 

36020 ISET &HD27D,4 

36030 WBYTE(&HD4D1 ) : POLL 0,136,70 

36040 WBYTE(&HD4EA) :POLL 12,38,22 

36050 WwBYTE(&HD4F3) :POLL 0,110,33 

36070 WwBYTE(&HD500 ) : POLL 24.32,.37 

36080 WBYTE(&HD509 ) :POLL 16,40,27 

36090 WBYTE(&HD512 ) :POLL 36,44.9 

36100 WBYTE(&HD517 ) : GOSUB *CONS 

36120 A$= "ワタシ 八 ファ ッ シ ョ ン モテ ~ ル コ " メン ナ サ イ ヤカン ナン カ フ " ツケ チャ ッ テ 。":GOSUB 600 

36130 RESTORE 916:GOSUB 800 

36140 ON C GOTO 36150,36160 

36145 GOTO 36130 

36150 MO=1 :A$=" イヤラシイ カメ ラマ ンカ "イヤラシイ カメ ラ ヲ ツク ッ タ ノ 。 ツキ マト ワレ テ コマ ッ テ ル ノ 。 ソノ カメ ラマ ン ハ コノ マン ショ 
ン ニニ スン テ " イル ノ 。" : GOSUB 190 :A$= "マタ 、 カ メラ マン カト オモ ッ テ ヤカン ナン カ ナ ケ " チャ ッ テ 。 コ "~ メン ネ 。":GOSUB 190:A 
$= "テア テ シ テ モラ ッ テ タイ リョ ク +5":TA=TA+5:GOSUB 190:GOSUB 300 

36160 BC=0:GOSUB *BACK : RETURN 

37000 "CAM 

37005 PICT=2:TF PICT<>DATNO THEN GOSUB #*LOADING.DATA2:DATNO=PTCT 

37010 OUT 104,0:BC=0:GOSUB *BACK :COLOR= (4,.0) :LINE(0,135)-(639,135 ) ,4 

37020 POLL 0,136,30 

37030 ISET &HD520,4:WBYTE(&HDF8A ) 

37040 WBYTE(&HD87A) :PAINT(395,112) ,1,4:PAINT(387,132 ) ,1,4:GOSUB *CONS 

37050 A$= "ワタ シ ハ アヤ シイ モノ テ ^ ハ ナイ 。 ヤセ ^ ッ タイ アヤ シイ モノ テ ^ ハハ ナイ 。":GOSUB 185:A$= "ホン トウ ニ アヤ シイ モノ テ ^ ハ 

ナイ 。 チカ ッ テ アヤ シイ モノ テ ~ 八 ナイ 。":GOSUB 190:A$=" キ ッ ト アヤ シイ モノ テ ^" ハハ ナイ 。 アヤ シク ナイ ! アヤ シク ナイ !! アヤ 
シク ナイ ッッ ! 7 1 7:GOSUB 190:GOSUB 300 

37060 CLS : A$= "トコ ロ テ * キミ ハハ マン ショ ン ノ シ " ョ セイ タチ ニ モウ アッ タカ ":GOSUB 600 

37070 RESTORE 918:GOSUB 800 

37090 ON C GOTO 37100,37110 

37095 GOTO 37060 

37100 TF MO<>0 THEN A$= "コノ マン ショ ン ノ シ " ョ セイ タチ ハ ワタ シ ヲ コ " カイ シテ イル 。" :GOSUB 185:CAM=1:T=2:G 
OSUB 180:RETURN 

37110 A$= "モテ * ル ト ハナ シ ヲ シテ カラ モウ イチ ト * キタ マエ 。":GOSUB 185:T=1.5:GOSUB 180:RETURN 

37500 !'OL 

37505 PICT=2:TF PICT<>DATNO THEN GOSUB *LOADING .DATA2 :DATNO=PICT 

37510 OUT 104,0:BC=1:GOSUB *BACK:GOSUB 200:COLOR=( 4 ,0) :VIEW(279,28)-(331,41 ) :RBY 
TE(7) :VIEW(0,.0)-(639,199) :ISET &HD8AB, 4 

37520 WBYTE(&HDCOD ) : POLL 20,136,30 

37530 WBYTE(&HDC22 ) 

37531 PAINT(320,68) ,5,4:POLL 0,64,40 

37540 WBYTE(&HDC2B ) :POLL 54,.90,7 

37550 WBYTE(&HDC30 ) : POLL 84,122,14 

37560 WBYTE(&HDC35 ) : POLL 68,136,69 

37570 WBYTE(&HDC3A ) : POLL 46,.55,9 

37580 WBYTE(&HDC3F ) : GOSUB *CONS 

37590 A$="「 ア ナタ タ ^ アレ ? ワタ シ ハ カレ ン ナ OfFfioe Lady ヨ 。":GOSUB 185:A$=" ヨ ウ カ "ナイ ン ナ ラ テ ^ テッ テ ョ 。" 
:GOSUB 190 :A$=" ア マリ ウロ ウロ シテ イル ト チカ ント マチ ナカ" エラ レル ワ ヨ 」" : GOSUB 190:T=1.5:GOSUB 180:RETURN 
38000 'TORCO 

38005 PICT=2 :TF PICT<>DATNO THEN GOSUB *LOADING.DATA2 :DATNO=PICT 

38010 OUT 104,0:BC=1:GOSUB *BACK:GOSUB 200:COLOR= ( 4 ,0 ) 

38020 ISET &HDC54,4:LINE(325,69)-(326,71) ,4 

38030 WBYTE(&HDF23 ) :POLL 0,136,70 

38040 WBYTE(&HDF54 ) :POLL 2,.56,64 

38050 WBYTE(&HDF59 ) :POLL 48,56,9 

38070 WBYTE(&HDE5E) :POLL 52,94,41 

38080 WBYTE(&HDF6B) :POLL 54,128,64 

38090 WBYTE(&HDF7C) :POLL 66,90,37 

38100 WBYTE(&HDF81 ) :CIRCLE(252,36 ) ,3,.0:PATINT(252,36 ) ,0,0:PSET(252,.36 ) ,7:CTRCLE( 2 
85,36 ) , 3.0:PAINT(285,36 ) ,0,0:PSET( 285,36 ) , 7 :GOSUB *CONS 

38110 A$=" ト ルコ シ " ョ ウ カ " イマ ス  「 オ アイ テ スル ?」":GOSUB 600 

38120 RESTORE 910:GOSUB 800 

38130 ON C GOTO 38140,38150 

38135 GOTO 38110 

38140 A$="「 タ ノシ カッ タワ 。 マタ キテ ネ 」":GOSUB 185:A$=" マ アァ ソレ ナリ ニ タイ リョ ク -10":POKE &HF274,&HFF: 
TA=TA-10:GOSUB 185:T=1.5:GOSUB 180:RETURN 

38150 POKE &HEF274,0:A$="「 サ " ン ネ ン ネ 。 マタ イラ シテ ネ 」" :GOSUB 185:T=1:GOSUB 180:RETURN 

38500 "トト “うぅ 

38505 PICT=3: 1TF PITCT<>DATNO THEN GOSUB *LOADING .DATA3 : DATNO=PICT 

38510 OUT 104,0:BC=1:GOSUB *BACK :GOSUB 200:COLOR= ( 5,0 ) :COLOR=( 4 ,0 ) :VTEW(146,7 )-( 
491,133) :RBYTE(5) :VIEW(0,0)-(639,199 ) :CIRCLE(231.59),30,.6:PAINT(231,.59),6,6:VIEw 
(305,23)-(353,50 ) :RBYTE( 7 ) :VIEw(0,0)-(639,199) 

38520 ISET &HC700,4:PAINT(345,57 ) ,7,4:PATINT(326,73),7,4:PAINT(305,7) ,2,4 


区 か や MM に くい 7 
GO ま | セ ロ テ ー プ を 貼っ た 上 か ら パ ンチ で 穴 を 開け る と 、 バ イン ダー に と じ る 時 に 穴 が 破れ に くく な る か ら だ ヨ ノ 


31040 PAINT(431,75) ,0,4:WBYTE(&HC9E1 ) :POLL 10,128,10 
31050 WBYTE(&HC9F2 ) :POLL 10,30,62 
31070 WBYTE(&HC9FB ) : POLL 90,120,41:GOSUB *CONS 
31100 A$=" ワ リャ ! ナン ノ ヨウ ゥ ケ ェ ?":GOSUB 600 
31110 RESTORE 908:GOSUB 800 
31120 ON C GOTO 31130,31140,31150 
31125 GOTO 31100 
31130 1TF INT(RND*5 ) <2 THEN A$=" ナ メト ンカ ? ホ " コ ! オッ ヤル ナ ":GOSUB 190:A$=" ソ ノ コン シ " g ウ キ ニ イ ッ タ 
タイ リョ ク +20! "EGOSUB 190:TA=TA+20:T=1.5:GOSUB 180:RETURN ELSE GOSUB 650:A$=" ホ "カッ ! オ 
ッ ! ヤル ンカ ! コノ ヤ H ロ 9! "EGOSUB 185:A$=" ナ ク " ラ う レ テ タイ リョ ク ノコ リ "+STR$(TA) :GOSUB 185:T=1.5:GOSUB 
180 :RETURN 
31140 IF INT(RND*7 ) > 4 THEN A$=" オ マエ エエ コン シ ^~ ョ ウシ " ャ タイ リョ ク +100 ヤ !":GOSUB 190:A$= "カン ハ 
トッ テ オナ コ *" サカ " セ ヤ ":GOSUB 190:A$=" カ リン ハル ン ヤ ソ "!! "EGOSUB 190:T=2:GOSUB 180:TA=TA+100:RE 
TURN ELSE A$=" オ ント "リャ ー ワシ ヲ ナメ トン ノ カ ア ! ホホ "コッ ! アナ タ ハ コロ サレ マシ タ 。":GOSUB 185:END 
31150 A$=" フ ウッ ヤッ ト ニケ "~ タ ^ セタ 。 ツ カ レ テシマ ッ テ タイ リョ ク -20":GOSUB 185:TA=TA-20:T=1:GOSUB 180: 
RETURN 
32000 'CYUSYA 
32005 PICT=2:TF PTCT<>DATNO THEN GOSUB *LOADING.DATA2 :DATNO=PICT 
32010 OUT 104,0:BC=1:GOSUB *BACK :COLOR=( 4 ,0) 
32020 TSET &HCA00,4 
32030 WBYTE(&HCC55 ) : POLL 0,135,37 
32040 WBYTE(&HCC62 ) :POLL 56,134,12 
32050 WBYTE(&HCC6B ) :POLL 18,60,39 
32070 WBYTE(&HCC7C ) :POLL 12,48,35 
32080 WBYTE(&HCC81 ) :POLL 34,44,69 
32090 WBYTE(&HCC86 ) : GOSUB *CONS 
32095 ITF KAN THEN A$=" モ ウゥ オク スリ ナイ ワリ mg。" :GOSUB 185:T=1:GOSUB 180:RETURN 
32100 KAN= 1 : A$= "アナ タ ヤツ レ テ ル ワ ネ エー。 エイ ヨウ サー イ ウッ テ ア ケ " ョ ヨウ" :GOSUB 600 
32110 RESTORE 914:GOSUB 800 
32120 ON C GOTO 32130,32140 
32125 GOTO 32110 
32130 T=TINT(RND*50 ) -20 : TA=TA+T : TF T>=0 THEN A$= "エイ ヨウ サ " イ ヲ ウッ テ モラ ッ テ " ELSE A$=" マ チ か が ^ 
ウッ プチ トド "クラ ヲ ウタ レ チ シ マッ チ " 
32133 GOSUB 185:A$=" タイ リョ ク ハハ "+STR$(TA)+" ニ ナリ マシ タ 。" :GOSUB 190:T=1.5:GOSUB 180:RET 
URN 
32140 A$=" セ ッ カ ク ウッ テア ケ ~ ルッ テニ ー イ ウノ ニー・・・" EGOSUB 185:T=1:GOSUB 180:RETURN 
34000 !LDA 
34005 PTICT=2:TF PITCT<>DATNO THEN GOSUB *LOADING.DATA2 : DATNO=PICT 
34010 OUT 104,0:BC=1:GOSUB *BACK:GOSUB 200:COLOR=( 4 ,0) 
34020 TSET &HCC9B, 4 
34040 WBYTE(&HCF56 ) :POLL 38,.98,30 
34050 WBYTE(&HCF67 ) :POLL 12,134,22 
34060 WBYTE(&HCF6C) :POLL 90,134,31 
34070 WBYTE(&HCF7 1 ) :POLL 94,134,14 
34081 WBYTE(&HCF76 ) :LINE(224,18)-(181,60),1:LINE-(304,.75) ,1:LINE-(224,18) ,1:CTRC 
LE(228,50 ) ,20,2:PATINT(228,50) ,2,2 
34090 PAINT(425,60),0,4:PAINT(385.60),0,4:PAINT(416,60),7,4:PATINT(378.61),7,4:PS 
ET(425,60) ,7:PSET(385,60 ) , 7 :GOSUB *CONS 
34110 A$=" ワ タ シ カ " アノ 「4D リティ ア OO」" :GOSUB 185:A$="「PC-9801/F」 Version UP テ * " :GOSUB 
190 : A$=" ケ イカ クチ ュ ウ ! ! ヨロ シク ゥ OO" :GOSUB 190:T=1.5:GOSUB 180:RETURN 
35000 "TATIYO 
PTCT=2 : TF PICT<>DATNO THEN GOSUB *LOADING.DATA2 :DATNO=PICT 
OUT 104,0:BC=1:GOSUB*BACK : COLOR=( 4 ,0 ) 
TSET &HCF7B,4:TSET &HDF98,4 
CTRCLE(107,60),30,4,5.652,3.768:CIRCLE(294,49),10,4:CIRCLE(327,48),12,4 っ : 


CTRCLE(278,126 ) ,18,4:CTRCLE(296,49) ,6,」4,,,.6:CIRCLE(330,48) ,8,4」,,.6 

CIRCLE(299,49) ,3,4,」,.6:CIRCLE(332,48) ,5,4,,,.5:CTIRCLE(310,33) 2」4」」」.5 

WBYTE(&HD224 ) :POLL 26,106,30 

WBYTE(&HD231) :POLL 116,136,27 

WBYTE(&HD23A) :POLL 4,.78,35 

WBYTE(&HD23F ) : POLL 78,106,29 

WBYTE(&HD244) :POLL 104,132,70 

WBYTE(&HD249) 

WBYTE(&HD24E) :POLL 12,66,30 

WBYTE(&HD253 ) :POLL 66,86,10 

WBYTE(&HD258 ) : GOSUB *CONS 

A$="「 セ イシ ュ ン 八 ナン タ *" ! サッ カー タ * ! "GOSUB 185:A$=" サ アァ 、 イ ッ シ ョ ニ アノ ユウ ヒ ニ ムカ ッ テ サッ カー ヲ シヨ ウト コ 
"・GOSUB 190:A$= "サッ カー ニ ツキ アワ サレ テ タイ リョ ク -10":TA=TA-10:GOSUB 190:T=2:GOSUB 180:RETURN 
36000 "FEF-MODEL 


36005 GOSUB 46000 
36007 PICT=2:TF PICT<>DATNO THEN GOSUB *LOADING .DATA2 :DATNO=PICT 


ン 只 あけ (ぐっ 時 の 目印 剛 
' で やめ - あ hG) ンコ 三角 マー ク を 中 心 に 両 。 コツ デコ 
| 廊 切 り 取 っ た リス ト に 側 に セロ テー プ を 貼る 


〆 く 


24076 GOTO 24060 

24080 TF HRK>2 THEN A$="「 ホ ト ケ ノ カオ モ 3 ト ` マテ ーッ テ イ ウ テ ^ ショ 。":GOSUB 190 :A$=" ヒ ツ コ イヒ ト キラ イッ タイ 

リョ ク -20 ヨッ 」":TA=TA-20:GOSUB 190:T=2:GOSUB 180:RBYTE( 0 ) : RETURN ELSE A$="「 ワ アッ ! アリカ 

トウ オレ イニ タイ リョ ク +30 シ チャ ウ !」":GOSUB 190:T=2:GOSUB 180:TA=TA+30 :HRK=HRK+ 1 : RBYTE( 0 ) : RE 

TURN 

24090 A$="「 カ ッ テ ク レナ キャ ニー イヤ ッ !」":GOSUB 190:A$= "ヒシ" テツ クラ ッ テ タイ リョ ク -5":GOSUB 190:TA=TA-5: 

T=1:GOSUB 180:RETURN 

25000 REM SETKO 

25005 PICT=1:TF PTICT<>DATNO THEN GOSUB *LOADING.DATA1 :DATNO=PICT 

25010 OUT 104,0:RBYTE( 0 ) : BC=1 :GOSUB *BACK : GOSUB 200:COLOR=( 4 ,0 ) 

25020 ISET &HD40D,4 

25031 WBYTE(&HD6E1 ) :POLL 346,112,30:WBYTE(&HD6F6 ) : POLL 6,100,17:WBYTE(&HD6FB ) : POL 

L 116,136,35:WBYTE(&HD700 ) :POLL 82,100,34:WBYTE(&HD70D ) 

25050 CIRCLE(336,54 ) ,7.0:PAINT(336,54 ) ,0:CIRCLE(375,62),7,0:PAINT(375,62 ) ,0:REST 

ORE 25050:FOR 1=1 TO 4:READ X0,YO:PSET(X0,YO) ,7:NEXT:DATA 336,53,337,.54.374,61,3 

76,63 

25060 ISET &HD726,3 

25065 PAINT(291.,80 ) ,3:PAINT(345,80 ) , 1 , 3 :PAINT( 345,80 ) , 2 , 3 :GOSUB *CONS 

25070 A$="「 ワ タ シ セイ コチ ャ ン ⑦":GOSUB 185:A$= "ウタ ノ レッ スン チュ ウ 。 キイ テ ネ 」" :GOSUB 190 

25100 A$="「 ト "オォ 2 ウマ イ テ " ショ 」":GOSUB 190 :A$= "ムリ ヤリ ウタ ヲ キ カ サ レ テ タイ リョ ク -1":TA=TA-1:GOSUB 

190 

25110 T=1:GOSUB 180:RBYTE( 0 ) : RETURN 

27000 REM BOY 

27005 PICT=1:TF PICT<>DATNO THEN GOSUB *LOADING.DATA1 : DATNO=PICT 

27010 OUT 104,0:BC=1 :GOSUB *BACF : GOSUB 200 

27020 ISET &HD774.0:WBYTE(&HD943) 

27040 CIRCLE(330,.33),4.0,。,,.7:PAINT(330,33),0,.0:CIRCLE(338,33),4,0,,,.7:PAINT(33 

8,33) ,0,0:PSET(330,33) ,7 :PSET(338,33 ) ,7 :GOSUB *CONS 

27050 A$=" マ イコ ン シ ョ ウ ネン カ ~ イマ ス " :GOSUB 190:A$=" カ "メン ヲ ミッ スカ?" :GOSUB 190 

27060 RESTORE 904:GOSUB 800 

27070 ON C GOTO 27080,.27090 

27075 GOTO 27060 

27080 GOTO 34000 

27090 RETURN 

28000 'U4M 

28020 PICT=1 : ITF PITCT<>DATNO THEN GOSUB *LOADING.DATA1 : DATNO=PICT 

28030 OUT 104,.0:BC=1:GOSUB *BACR :GOSUB 200:COLOR=( 3,0) :COLOR=( 5,0 ) 

28040 ISET &HD980, 3:WBYTE(&HD9E8 ) 

28050 「'B&7 

28060 ISET &HD9F9,5 

28070 PAINT(96,52 ) ,4,5:WBYTE(&HDCB4 ) 

28080 WBYTE(&HDCD9 ) : POLL 6,116,3 kb 

28085 PAINT(72,18),0,5:PAINT(86,.64) ,0,5:POLL 10,130,25:PAINT(559,7),7,5:PAINT(55 

6.16),7.5:PAINT(585,44),7,.5:PAINT(555,25),7,5 

28090 CTRCLE(80,34 ) ,9,2:PATNT(80,34 ) ,6,2:CTRCLE(110,34) ,8,2:PATNT(110,34),6,2 

28100 ' ULLUTRA MAN 

28110 ISET &HDCDE,5 

28120 WBYTE(&HDE4B ) :POLL 2.86,68 

28140 CIRCLE(319.68) ,10,6:PAINT(319,68) ,1,6:GOSUB *CONS : ! CT 

28150 A$=" フ ォ フォ フォ ...":GOSUB 190 

28160 A$=" コ レ カ " 、 ホ ント ノ 「 ウ ルト ラ 4 ニン 人 マー シド ャ ン 。。。.」 "EGOSUB 190:T=2:GOSUB 180 

28170 CLS :A$="「 オ イ ヒト リ タリ ナイ ンタ " 。 ツキ ア ェ ヨ 」":GOSUB 600 

28172 RESTORE 906:GOSUB 800 

28174 ON C GOTO 28176,28178 

28175 GOTO 28170 

28176 GOSUB 650 :A$=" テ ツヤ マー シ ~ ャ ン ニ ツキ アワ サレ タイ リョ ク ノコ リ "+STR$ (TA ) :GOSUB 190:T=1:GOSUB 1 

80 : RETURN 

28178 A$=" ナ ニッ ! ソン ナ ワル イ ヤツ ハ コウ タ ~ ! "7:GOSUB 190 

28180 VIEW(247,43)-(383,86 ) : RBYTE( 1 ) : VIEW(0,0)-(639,199) :TSET &HDE88,5 

28190 WBYTE(&HDF99 ) 

28200 WBYTE(&HDFAE ) :POLL 34,.88,68 

28210 「' ハ "クォン 

28220 FOR 1I=1 TO 201 STEP 10:BEEP 1:CIRCLE(276,47 ) ,T,6,,,.99:BEEP 0:NEXT 1 

28240 FOR 1=1 TO 500:BEEP 1:COLOR= (INT(RND*8 ) , INT(RND*8 ) ) : BEEP 0:NEXT:GOSUB 200: 

COLOR=( 3 ,0 ) :COLOR=( 5,0) 

28250 RBYTE( 0 ) : A$= "アナ タ ハ 、「 ス へ ? シュ ウム コウ セン 」 テ " シ ニ マ シタ " :GOSUB 185:T=2:GOSUB 180:CLS :GOTO 
50000 

31000 ' BUNTA 

31005 PITCT=2:TEF PICT<>DATNO THEN GOSUB *LOADING.DATA2 :DATNO=PICT 

31010 OUT 104,0:BC=1:GOSUB *BACK:GOSUB 200:COLOR=( 4,0) 

31020 ISET &HC700,4 

31030 WBYTE(&HC9C4 ):POLL 0,136,69 


ウラ 穴あけ パンチ WT | もじ テー ブ 


18080 A$=" キ ミト ハ キ カ " アイ ソウ タ * ":GOSUB 190:A$=" コ ノ マ マ コウ ト *" ウ スル コト ヲ キョ カ スル ":GOSUB 190:T=3: 
GOSUB 180:RETURN 

18090 A$="「 ヨ 、 ヨ クモ ナク "ッッ タナ! ワーー ン !」" EGOSUB 190:A$=" ア ァ ッ イー シ " メタ イー シ * メタ セー キ ~ ノ カ "ー ト "マン イ 
ー シ " メタ! 1 "GOSUB 190:A$= "ミンナ カラ シロ イ メ テ * ミラ レ タイ リョ ク -3":TA=TA-3:GOSUB 190:T=1:GOSUB 1 
80 : RETURN 

18100 A$=" ニ ケ *" ルコ ト ハ ユル サン ! "EGOSUB 190:T=.5:GOSUB 180:GOTO 18050 

21000 1 

21005 PICT=1 :TF PICT<>DATNO THEN GOSUB *LOADING .DATA1 :DATNO=PICT 

21020 OUT 104,0:GOSUB 200:COLOR=( 4 ,0 ) :COLOR=( 5 ,0 ) : BC= 1 : GOSUB *BACK 

21030 CIRCLE(386,106 ) ,100,5,,,.1:PAINT(336,106 ) , 5:TSET &HCAB4,4 

21040 PAINT(299,18),0,4:POLL 16,62,9:WBYTE(&HCC95 ) :POLL 38,120,30 

21041 PAINT(298,60),6,4:PAINT(347,80),2,4:PATINT(344,70) ,7,」4:GOSUB *CONS 

21045 ITF RST THEN 21110 

21050 RST=1 :A$=" ア レレ ルッ 2 オン ナノ コカ ~" キ カ "~ エ テ ル ゾ ~ " : GOSUB 600 

21060 RESTORE 954:GOSUB 800 

21070 ON C GOTO 21090,.22000,21110,21120 

21080 GOTO 21060 

21090 A$=" ハ ナシ ナン カ シタ クナイ ワ 。 テ ~ テッ テ ! ":GOSUB 190:T=1:GOSUB 180:RETURN 

21110 A$=" ェ ッ チ !!":GOSUB 190:T=.3:GOSUB 180:GOSUB 46000:RETURN 

21120 

22000 

22010 PICT=1 :TF PICT<>DATNO THEN GOSUB *LOADITNG .DATA1 : DATNO=PICT 

22020 OUT 104,.0:COLOR = ( 5 ,0 ) : COLOR= (6, 7 ) : BC= 1 : GOSUB *BACK 

22030 CIRCLE(318,112),.100.5,,,.1:PAINT(318,112) ,5:TSET &HCCAA,4 

22040 PAINT(294.6),0,4:POLL 2.46.9:WBYTE(&HCEC1 ) : POLL 25,134,30 

22041 PAINT(347.65),2,4 

22050 ISET &HCED6 , 6 

22051 PAINT( 320,50 ) ,6 :PAINT(278,55 ) , 6 :GOSUB *CONS 

22060 A$=" ア ッ ! ヌキ "ハシ トメ タッ "EGOSUB 600 

22070 RESTORE 956:GOSUB 800 

22080 ON C GOTO 23000,21110,21110,22130 

22090 GOTO 22070 

22120 GOTO 21090 

22130 

23000 

23020 PICT=1: IF PICT<>DATNO THEN GOSUB *LOADING.DATA1 : DATNO=PICT 

23030 OUT 104,0:BC=1:GOSUB *BACK 

23040 CIRCLE(318,112),100.5,」,,.1:PAINT(318,112),5,.5:TSET &HCFO03,4 

23050 PAINT(306,14),0,4:POLL 12.60,.9 

23051 PAINT(286,.46),0,4:PATINT(294,.53) ,0,4:PAINT(353,109),0,4:POLL 40,118,30:TSET 
&HD02B,4 

23052 PAINT(346,62),6,4:PAINT(352,92),6,4 

23060 TSET &HDO081 , 6 : GOSUB *CONS 

23065 A$= "ワタシ オ ホ " エ ノ ナイ ヌー ト ^~ シャ シン ヲ トラ レ テ ":GOSUB 185:A$="「 タ チキ チ サン へ " イ 」 ト イ ウ カメ ラマ ン ニ イシ * 
メラ レ テ ル ノ ":GOSUB 190:A$=" マ タ 、 ソイ ツ カ " キタ ノ カ ト オモ ッ テ 。。。":GOSUB 190 :A$=" イ ツモ ヌー ト " トラ セロ ッ テ イ ウ カ 
う ..":GOSUB 190:GOSUB 300 

23070 CLS :A$= "アレ レッ ? ナ キ タ ^ シ チ ャ ッ タ 。" :GOSUB 600 

23080 RESTORE 958:GOSUB 800 

23090 ON C GOTO 23110,23120,23130,23140 

23100 GOTO 23080 

23110 ” 

23120 A$=" ア ナタ ッ テ タ ノ モ シイ ワ 。 テ *" モ ココ マテ * ・・・":GOSUB 190:A$=" オレ イニ タイ リョ ク +30 スル ワ ・・・OO" : GO 
SUB 190:TA=TA+30:GOSUB 300:RETURN 

23130 A$="「 キ ャ ーッ ナニ ヨー ッ !」  ":GOSUB 190:A$=" カ "ーー ト * マン ヲ ヨハ " レ テ シ マッ タ ・・・ ツ カ マ ッ テ GAME OVER 


23140 TRK=5:GOSUB 18000:GOSUB 185:T=1:GOSUB 180:GOTO 50000 

24000 REM HITROKO 

24005 PICT=1 : ITF PITCT<>DATNO THEN GOSUB *LOADITNG .DATA1 : DATNO=PICT 

24010 OUT 104,0:BC=1:GOSUB *BACK:GOSUB 200:COLOR= (4,0) :COLOR=( 5,0 ) 

24020 CIRCLE(358,130 ) , 80.5,,,.12:PAINT(358,130) ,5:CIRCLE(418,120),45,5,,,.12:PAI 
NT(418,120),5 

24030 ISET &HDOFEF,4 

24040 PAINT(286,5),0,4:POLL 0,56,17:WBYTE(&HD3F4 ) :POLL 20,134,30 

24041 PAINT(307,49),2,.4:PATNT(267,54 ) ,2,.4:PATNT(274,30) ,4:PAINT(300,27),4 

24045 GOSUB *CONS 

24050 RESTORE 24050:FOR 1=1 TO 4:READ XO0,YO:PSET(XO,YO),7:NEXT:DATA 274.30,300,2 
ィ 7273.32.298.29 

24060 A$=" キ ャ !! オト " カサ ナイ テ *^ 。 ワタ シ ヒロ コ 。":GOSUB 185:A$= "モテ * ル ニ ナリ タク テ レッ スン チュ ウ ":GOSUB 190 
:A$= "ココ ニ ヒッ コシ テ キタ ノ ":GOSUB 190:A$=" タ "ッッ テ 、 ユ ウメ イナ カメ ラマ ンカ " スン テ ~ イル ノ ":GOSUB 190:GOSUB 30 
0:CLS :A$=" ト コロ テ " 。 「 アタ ッ ク ヒロ コ チャ ン 」 カッ テク レタ ?":GOSUB 600 

24070 RESTORE 902:GOSUB 800 

24075 ON C GOTO 24080,24090 


準 備 す る モノ に ちち 
人 ① 同 様 、 ビ ニー ルフ ァイル の か わり に パイ ンダ ー 


く . 


15260 TIF C=2 THEN FOR OE=456 TO 528 STEP 2:VIEW(OE,32 ) -(OE+1 ,119 ) : RBYTE( 0 ) : VIEW( 
912-OE- 1 ,32)-(912-OE,119 ) :RBYTE(0 ) :NEXT OE:VIEwW(0,0)-(639,199) 

15265 RETURN 

15320 'SHUT 

15330 IF Y=1 AND NO=1 THEN FOR OE=112 TO 184 STEP 2:VIEW(OE,33 ) -(OE+1,118 ) : RBYTE 
( 7 ) :VTEW(368-OE-1 , 33 ) -(368-OE,118 ) :RBYTE(7 ) :NEXT:LTINE(184,32)-(184,119),0:VIEW(0 
r0)-(639,199) 

15340 TF Y=1 AND NO=2 THEN FOR OE=384 TO 456 STEP 2:VIEW(OE,33 )-(OE+1,118 ) : RBYTE 
( 7 ) : VIEW(912-OE-1 ,33 )-(912-OE,118 ) :RBYTE( 7 ) :NEXT:LTNE(456,32)-(456,119),0:VTEW(0 
ヵ 0)-(639,199 ) 

1534 1 RETURN 

16000 ” 

16040 WIDTH 40:CONSOLE 14,6:GOSUB 200:COLOR=( 4,0 ) :VTEW(0,135)-(639,199 ) :RBYTE(4 ) 
: BC=0:GOSUB *BACK : COLOR=( 0,1 ) 

16050 KAI$=STR$(KAT ) : TF KAI=0 THEN KAT$="B" 

16051 LOCATE 18,13:PRTNT KAT$+"F": 

16060 ON F GOSUB 16090,16130,16170 

16070 GOSUB 90:RETURN 

16090 "1 

16100 GOSUB 16200:GOSUB 16240:LINE(96,84)-(192,84) ,7:LTINE-(192.80),7:LINE-(240,8 
0 ),7:LINE-(240,120),7:LINE(544.84)-(448,.84),7:LINE-(448,.80).7:LTNE-(400,80) ,7:LT 
NE-(400,120),7 

16110 COLOR 6:LOCATE 7,10:PRINT "シュウ カイ ショ "ELOCATE 25,10:PRINT" カ か ー ト "マン シッド 

16120 COLOR 6:RN=1:FOR 1=6 TO 15 STEP 3:LOCATE 1T,3:PRINT STR$(RN ) :RN=RN+ 1 :NEXT:R 
N=5:FOR 1T=22 TO 31 STEP 3:LOCATE IT,3:PRINT STR$(RN) :RN=RN+ 1 : NEXT:RETURN 

16130 2-6 

16140 GOSUB 16200:GOSUB 16240:LINE(96,80)-(544,.80),7:FOR T=152 TO 488 STEP 48:LI 
NE(T,80 ) -(T,120 ) , 7 : NEXT 

16150 RN=1:COLOR 6:FOR IT=6 TO 15 STEP 3:LOCATE T,3:PRINT STR$(RN ) :RN=RN+ 1 : NEXT:R 
N=5:FOR T=22 TO 31 STEP 3:LOCATE 1T,3:PRTINT STR$(RN) :RN=RN+1:NEXT:LOCATE 7 ,10:COL 
OR 6:PRINT"9" 

16151 RN=10:FOR IL=10 TO 31 STEP 3:LOCATE 1,10:PRINT RIGHT$(STR$(RN) , 2 ) :RN=RN+1:N 
EXT : RETURN 

16170 GOSUB 16200:LINE(96,80)-(544,80),7:FOR IT=128 TO 512 STEP 32:LINE(T,80)-(I, 
120 ) , 7 :NEXT:FOR T=128 TO 288 STEP 32:LINE(1,16)-(T,56 ) ,7:NEXT:FOR T=352 TO 512 S 
TEP 32:LTINE(T,16 ) -(T,56 ) , 7 : NEXT 

16185 RETURN 

16200 'KYOUTU 

16210 LINE(96,16)-(544,120),7,B:LINE(288,16)-(352.32),7,B:LINE(96,56)-(288.56),7 
:LTNE(352,56)-(544.56),7:LINE(288,.32)-(352,32),7:LTNE(320,16)-(320.32),7 

16220 LINE(288,16)-(320,32),7:LINE-(352,16),7:LINE(288,32)-(320,16),7:LINE-(352。 
32 ) ,7 :LOCATE 17,0:PRINT "エレ へ "ーー ター" 

16230 RETURN 

16240 "1-6 

16260 FOR TI=144 TO 288 STEP 48:LTNE(T,16 )-(T,56 ) ,7:NEXT:FOR T=352 TO 496 STEP 48 
:LTNE(T,16 ) -(T,56 ) , 7 : NEXT : RETURN 

17000 'Q 

17005 PICT=1 :TF PICT<>DATNO THEN GOSUB *LOADING.DATA1 :DATNO=PICT 

17010 OUT 104,.0:GOSUB 200:COLOR=( 4,0 ) :BC=1:GOSUB *BACK 

17020 ISET &HC700,4 

17023 CIRCLE(344.40),」35,4」」,.7:CIRCLE(344.40)」10」4」」」.7:CTRCLE(344.40).5」4」」,.6 
17030 WBYTE(&HC883 ) : POLL 0,135,39 

17040 WBYTE(&HC88C) :POLL 16,.64,66 

17050 WBYTE(&HC891 ) :POLL 34,.48,27 

17060 WBYTE(&HC896 ) :POLL 58,.86,60 

17070 WBYTE(&HC89B ) :POLL 71,122.9:GOSUB *CONS 

17080 = ヨー ヨ - - ン ":GOSUB 185:T=.4:GOSUB 180:RETURN 

18000 

18005 PICT=1:TF PICT<>DATNO THEN GOSUB *LOADING.DATA1:DATNO=PICT 

18010 OUT 104,0:RBYTE(0) :GOSUB 200:COLOR=(3,0) :COLOR=(4,0) :BC=5:GOSUB *BACK 
18020 CIRCLE(294.56) ,25,4,2.198,5.024,.3:CIRCLE(348,56 ) ,25,4,3.14,.6918,.3:TSET 
&HC8A0,4 

18021 LINE(226,136)-(418.136) ,4:PATNT(275.55) ,7,4:PATNT(366,56) ,7,4 

18030 WwBYTE(&HCA87 ) :POLL 100,136,15 

18031 PAINT(269,78),0,4:PAINT(357,78),0,4 

18040 CIRCLE(321.25),10,6,,」,.7:PATNT(321,25) ,6,6:GOSUB *CONS : TEF TRK=5 THEN RETUR 
N 

18050 A$=" コ ラッ ! オマ エ ハ タ " レ タ " 2?":GOSUB 190:PRTNT :A$=" オ レ ハ モト トウ フ " ケイ サッ ツノ "EGOSUB 190:A$ 
=" ヨ ワー イ カ "ー ト * マ ンタ" "EGOSUB 190 

18060 RESTORE 924:GOSUB*DO 

18070 ON C GOTO 18080,18090,18100 

18075 GOTO 18050 


〆/ @ 穴 を 開け て パイ と ダー で 保存 する 場合 


3210 CH=-CH:TF CH<> 1 THEN PUT(KX ,KY ) , B%,PSET : RETURN 

3215 PUT(KX,KY) ,A%,PSET:BEEP 1:BEEP 0:RETURN 

3500 REM へ ヤ ハ ン テ ィ 

3510 IF F=1 AND Y=2 AND(X MOD 2=1 OR X=0 OR X=4 OR X=8) THEN 3100 

3520 1F Y=0 AND X=4 THEN T=.4:FOR 1T=0O TO 10:BEEP 1:FOR J=0 TO 5:NEXT:BEEP 0:NEXT 
:GOSUB 180:GOSUB 1500:Y=0:TF FE<>3 THEN GOSUB 3210:GOTO 3100 ELSE GOSUB 3210:Y=0: 
GOTO 3105 

3530 FOR 1T=0 TO 99:BEEP 1:BEEP 0:NEXT 

3600 REM ヘ へ ヤマ ェ 

3700 SCREEN 0,PEEK(&HF272) :KABE=0:GOSUB 41000:!Shut Door 

3710 CLS:RESTORE 964:GOSUB 800 

3730 ON C GOTO 11000,13000,12000,3900 

3736 GOTO 3710 

3800 GOSUB 41200:!Open Door 

3821 ON R%(KAI,XX )+1 GOSUB 42000,18000,21000,24000,25000,.27000,28000,58000,31000 
ぅ >32000,17000,35000,36000,37000,37500,38000,38500,39000,39500,40000,40500,43000,4 
4000,45000,46000 

3840 GOSUB 250 

3900 GOSUB 16000:Y=1:KY=FNGY( 1 ) -4:GOSUB 3210:GOTO 3100 

10000 FOR IT=0 TO 10:BEEP 1:FOR J=0 TO 10:NEXT:BEEP 0:NEXT:RETURN 

10010 FOR 1=0 TO 20:BEEP 1:FOR J=0 TO 5:NEXT:BEEP 0:NEXT:RETURN 

11000 'KNOCK 

11010 [=R%(KAI,XX ) : TEF RND<.3 OR IL=10 OR 1I=0 OR 1I=7 OR IL=21 OR (T=7 AND (MO=0 OR 

CAM=0 ) ) THEN A$="『 ょ ":GOTO 11030 

11020 TF RND<.66 OR 1T>=22 THEN A$="「 ト "ナタ ー?」"ELSE A$="「 ハ ー イ 、 イ マー ア ケ マ ス 」" : GOSUB 185:T= 
・5:GOSUB 180:GOSUB 250:GOTO 3800 

11030 GOSUB 185:T=.5:GOSUB 180:GOSUB 250:GOTO 3710 

12000 "イン ター ホン 

12005 1T=R%(KAT,XX ) : TF RND<.3 OR I=10 OR 1I=0 OR I=7 OR IT=21 OR(T=7 AND(MO=0 OR CA 
M=0 ) ) THEN A$="『 ュ ":GOTO 12030 


12010 TF RND<.9 OR TI>=22 THEN TF RND<.56 THEN A$="「 ト "ナタ テ ^ スカ アー」" ELSE A$="「 イ リカ" シイ 
カラ マタ ニシ テ !」"ELSE A$="「 ハ ー イ 、 イ マ ア ケ マ ス 。 」" :GOSUB 185:T=.5:GOSUB 180:GOSUB 250:GOTO 3800 
12030 GOSUB 185:T=.5:GOSUB 180:GOSUB 250:GOTO 3710 


13000 "OPEN 

13005 1T=R%(KAT,XX ) :TF T=7 AND(MO=0 OR CAM=0 ) THEN A$=" ト ~ アハ アキ マセ ヤン" :GOSUB 185:T=.5: 
GOSUB 180:GOTO 3710 

13010 GOSUB 250:TF T=0 THEN 1I=RND: IF T<.3 THEN 3800 ELSE IF 1<.6 THEN A$=" ト "アハ 
了 アキ マセ ン 。" : GOSUB 185:T=.5:GOSUB 180:GOTO 3710 ELSE KABE=1:GOTO 3800 

13020 GOTO 3800 

15000 ELEV 

15010 WIDTH 40:CONSOLE 14,6:BC=0:GOSUB *BACK 

15050 VIEW(0,135)-(639,199) :RBYTE(0) :GOSUB 200:VIEW(0,0)-(639,119) :RBYTE(1) :VIEW 
(0,120)-(639,135 ) :RBYTE(2) :VIEW(104.28)-(264,119) :RBYTE( 5 ) :VIEW(376,28)-(536,119 
) : RBYTE(5) 

15055 VIEW(112,32)-(256,119) :RBYTE( 7 ) :VIEW(384,32)-(528,119 ) :RBYTE(7) :VIEW(305,6 
1 ) -( 335,89 ) :RBYTE( 7 ) : VIEW(0,0)-(639,199) 

15060 LINE(112,32)-(256,119),0.B:LINE(384,.32)-(528,119),.0,B:LINE(184.33)-(184,11 
9 ),0:LINE(456,33)-(456,119),0:LINE(304.60)-(336,.90),0,B:LINE(320.63)-(312,70),0: 
LINE-(328.70),0:LINE-(320.63) ,0:PAINT(320.65) ,6,0 

15070 LINE(320,87 )-(312,80) ,0:LTNE-(328,80 ) ,0:LINE-(320,.87 ) ,.0:PAINT(320.81),6,0: 
FOR CX=112 TO 256 STEP 24:CIRCLE(CX,22 ) ,7,0:PAINT(CX,22) ,7,0:NEXT:FOR CX=384 TO 
536 STEP 24:CITRCLE(CX,22) ,7,0:PATNT(CX,22 ) ,7,0:NEXT 

15080 CMD(112.10)」"B"」1.1.7,1,PSET:CMD(136.10)」"17」 1.1.7.1.PSET:CMD(160.10),"2"」 
1.1」7,1,PSET:CMD(184.10) "37 1,1.7,1,PSET:CMD(208」10)」 "47 1.1,7,1,PSET :CMD(232,1 
0)」757 1.1.7,1,PSET:CMD(256,10),"6",1.1,7,1,PSET 

15081 CMD(384,10),"B",1,1.7,1,PSET:CMD(408,10)」 "17 」1,1,7,1,PSET:CMD(432.10)」"27」 
1.1,7,1,PSET:CMD(456,10),"3"」1,1,7,1,PSET:CMD(480,10) "47 1。1.7,1,PSET:CMD(504,1 
0)」 7571.1.7,1,PSET:CMD(528,10)」 767」1」1.7,1,PSET 

15085 KAT$=RTGHT$(STR$(KAT ) , 1 )+"F" :TF KAT=0 THEN KAT$="BE" 

15086 LOCATE 19,.5:COLOR 2:PRINT KAT$ 

15090 FOR IT=0 TO 1:R=INT(RND*7 ) : PATINT( 112+24*R+1T*272.22 ) ,2,0:CXO(T+1 ) =E%( エ +1,R) : 
NEXT : RETURN 

15200 '= MOV ELEVATOR = 

15223 FF=112+24*KAT+(NO-1 ) *272 

15225 ST=24:TF CXO(NO ) >FF THEN ST=-ST 

15230 FOR CX=CXO( NO ) TO FF STEP ST:PATNT(CX,22),2.0 

15235 TEF(CX-ST>111 AND CX-ST<257 )OR(CX-ST>383 AND CX-ST<529 ) THEN PAINT(CX-ST,22 ) 
j70 e 

15237 FOR IT=0 TO 150:NEXT:NEXT CX:CXO( NO ) =FF : RETURN 

15240 OPEN 

15250 IF C=1 THEN FOR OE=184 TO 256 STEP 2:VIEW(OE,32 ) -(OE+1 ,119 ) : RBYTE( 0 ) :VIEW( 
368-OE-1 , 32 ) -( 368-OE, 119 ) :RBYTE( 0 ) :NEXT OE:VIEW(0,0)-(639,199 ) 


赤 ほ ら 、 よ く 女 の 子 が アイ ドル の 写真 と か 入れ て 下 じ き が わ 
り に 使っ て る ヤツ ある で し ょ 。 あ れ に 入れ て 見 て も グー ツ 


DATA" 1 テ "ー ト スル " "2 ヘ へ ヤラ テ " ル "3 イキ ナリ オ ソ リウ" "4" 
DATAY1 カナ シブ スル "2 ナク グル の 3 こ が ル "74" 
DATA" 1 ヒ タ " リ ニー エレス ーー ター" "2 ミキ "エレ スソ ー タ ー リ "3 フラ ナイ "74" 
DATA"1 UP" "2 DOWN"」 "3 ヤッ パリ" リ ヤメ ルリ "47 
DATA" 1 モッ ト ヨク ミル リ "。 "2 ヘソ ツノ ヘ ヤ ヲ ミル " "3 ヤメ テ へ ^ ン キョ ウス ル " 。 "4 ヤメ ル " 
DATA "1 ハナ シカ ケル " "2 モウ スコ シ ミ テ イル " "3 タ " キ ツウ ク "4 ヘ へ ヤ ヲ テ " ル " 
DATA"1 シット ミ テ イル "の ヌメ ク * ノラ テツ が ウリ 。 "3 ター キ ウ ツク" "4 ヘ ヤ テ * ル " 
DATA" 1 シド ッ ト ミ テ イル " "2 キス スルリ" 3 タリ "キック" "4 ヘ へ ヤ テ * ル " 
DATA" 1 フッ ク スル "。 "2 ト " ア アア ケル" 。 "3 イン ター ホン ナラ ス " 。 "4 ヤメ ル " 
DATA" 1 フッ ク スル " "2 イキ ナリ ハイ ル " "3 モノ オト ヲ キク "。 "4 ヤメ ルリ " 
DIM A%(76 ) , B%( 76 ) ,D%( 76 ) ,E%( 2,6 ) ,F%( 3 ) ,J( 24 ) 
RESTORE 60000:FOR 1T=0 TO 75:READ A$:A%(T) =VAL("&H"+A$ ) :NEXT 
RESTORE 60070:FOR 1=0 TO 75:READ B$:B%( 1 ) =VAL("&H"+B$ ) : NEXT 
D%(0) =&H14:D%( 1) =&H10:FOR LT=2 TO 75:D%(T ) =0:NEXT 
GOSUB 1400 
CXO( 1 ) =112:CXO( 2 ) =384 
DATA 112,136,160,184.208,232.256,384」408,432,.456,.480,504,.528 
RESTORE 1070:FOR 1T=1 TO 2:FOR J=0O TO 6:READ E%(1,J) :NEXT J ゴ ,T 
DATA 42000,18000,.21000,.24000.25000,.27000,28000.58000,.31000,32000,17000,3500 
0,36000,.37000,.37500,38000,38500,39000,39500,.40000,40500,43000,44000,45000,46000 
1110 RESTORE 1100:FOR TL=0 TO 24:READ J 了 (TI) :NEXT 
1390 GOTO 3000 
1400 DEF FNGY(Y) =(Y+7 )*8+(X=4 AND Y=0)*16-(F=1 AND X=4 AND Y=2)*35:RETURN 
1500 REM エレ へ " - タ 
1502 GOSUB 15000 
1505 RESTORE 930:GOSUB 800 
1511 TF C=1 THEN CXO=112 :NO=C 
1512 1TF C=2 THEN CXO=384 : NO=C 
1513 TF C=3 THEN GOSUB 16000:T$="":RETURN 
1515 RESTORE 950:GOSUB 800:CLS 
1516 IF C=1 THEN UD=1:PAINT(320,65) ,4.0:GOSUB 15200:C=NO:Y=1:GOSUB 10000:GOSUB 1 
5250:GOTO 1520 
1517 IF C=2 THEN UD=2:PAINT(320,.81) ,4,.0:GOSUB 15200:C=NO:Y=1:GOSUB 10010:GOSUB 1 
5250:GOTO 1520 
1518 IF C=3 THEN 1505 
1520 COLOR 7 :CLS :LOCATE 21,15:A$=" ユ キタ イ カイ ノ ホ * タン ヲ ":GOSUB 190:LOCATE 21,16:A$=" オ シテ 
クタ "サイ (0-6)":GOSUB 190:COLOR 4:LOCATE 21,17:A$=" チ カ (B) ハ 0!" :GOSUB 190:LOCATE 21 
18:A$=" リ フラ ナイ ーー ハ 9?":GOSUB 190:COLOR 7 
1521 T$=INPUT$( 1 ) : TF 1$="9"THEN C=KAT:GOTO 1527 ELSE IF T$<"0"OR T$>"6"THEN 1521 
1522 C=VAL( [$ ) : TF(UD=1 AND KAI>C ) THEN A$= "ウェ へ マイ リマ ス ノレ マセ ヤン" :GOTO 1526 
1523 IF(UD=2 AND KAI<C ) THEN A$=" シ タ へ マイ リマ ス ノルマ セン":GOTO 1526 
1524 IF(C=KAI ) THEN A$=" コ コテ * ス ョ ":GOTO 1526 
1525 GOTO 1527 
1526 CLS:LOCATE 20,15:GOSUB 190:T=.2:GOSUB 180:GOTO 1520 
1527 IF C=0 THEN F=3 ELSE IF C=1 THEN F=1 ELSE F=2 
1528 KAT=C:GOSUB 15320:GOSUB 15200:GOSUB 16000 
1550 RETURN 
3000 REM ロー カ 
3005 X=4:Y=1:KAT=1:F=1:GOSUB 16000:TX=1:MX=X:MY=Y 
3010 DATA 7,10,13,16,19,23,26,29,32 に 
3020 RESTORE 3010:FOR 1I=0 TO 8:READ P(1 ) : P( 1 ) =P(T )*16 :NEXT:MKX=P(X) :MKY=FNGY(Y) - 
4 :GOTO 3150 
3100 TX=0:TY=0:MX=X:MY=Y:CH=1 
3104 A=USR( 0 ) :SCREEN 0,.0 
3105 T$=INPUT$( 1 ) : A=USR( 0 ) 
3110 TF 1$="8"THEN Y=Y-1 : 1TY=-1 : TF Y<0 THEN Y=0 
3120 IF 1T$="2"THEN Y=Y+1:IY= 1:TF Y>2 THEN Y=2 
3130 IF 1$="6"AND Y=1 THEN X=X+1:TX= 2:TF X>8 THEN X=8 
3140 IF 1$="4"AND Y=1 THEN X=X-1 : TX=-2:TF X<0 THEN X=0 
3145 IE KAT=0 THEN Y=0:TF 1$="2"OR 1T$="4"OR T$="6"THEN LOCATE 0,20:COLOR 2:PRINT 
"ココ カラ ハ タチ イリ キン シ !9 7: エニ =.5:GOSUB 180:LOCATE 0,20:PRINT" "jsCOLOR 7: 
LOCATE 36,20:GOTO 3105 ELSE ITF 1T$="8"THEN Y=0:GOTO 3500 ELSE 3105 
3150 TF(T$="4" OR 1T$="6")AND Y<> 1 THEN LOCATE 0,20:PRTNT'" ロ - カ ノ マン ナカ ヲ アル キマ ショ ウ ":: 邊 ニ 
・5:GOSUB 180:LOCATE 0,20:PRTINT" "LOCATE 36,20:GOTO 3105 
3153 MKX=P(MX ) :MKY=FNGY (MY ) -4 
3155 IF 1X<>0 THEN FOR IT=P(MX)TO P(X)STEP TX*2:KX=T:KY=FNGY(Y)-4:GOSUB 3200:MKX= 
KX:MKY=KY:GOSUB 3210:NEXT 
3157 TE TIY<>0 THEN FOR 1=FNGY(MY)-4 TO FNGY(Y)-4 STEP TY:KX=P(X) :KY=T:GOSUB 3200 
: MKX=KX:MKY=KY:GOSUB 3210:NEXT 
3160 IF Y く <> 1 THEN XX=Xー(X<4 AND Y=0)-(Y=2)*9:GOTO 3500 
3170 GOTO 3100 
3200 PUT(MKX , MKY ) , D%, PSET : RETURN 


娘 ファ イル は ちょ っ と 高い か ら な ぁ … と いう 人 は 、 ハ ー ド ケー ス を 利用 し よう 


/ 


PEEK(&HF272 ) 

20 TA=100:KAN=0:HRK=0 :RST=0 :MO=0:CAM=0:GOSUB 100:CLS:GOTO 1000 

50 A=&HF2A0:CALL A 

70 IF ERR=62 OR ERR=64 THEN A$="Disk ヲ ャ ッ ト シテ Hit Space Key !":GOSUB 185:WHILE A 


$ く >" 


":A$=TNKEY$ : WEND : RESUME ELSE PRTNT ERL,ERR :RESUME NEXT 


90 COLOR 6:LOCATE 25,19:PRTNT" タ イリ ョ クニ ="+STR$(TA)+" の):COLOR 7 :RETURN 


100 
105 
110 
120 
121 
125 
130 
132 
134 
135 
136 
137 
140 
150 


? ROOM 

COLOR 6:PRINT" へ ヤ ノ ハイ チラ ヲ キメ テイ マス 。 シ ハ ^~ ラク オマ チク タ *" サ イ ":COLOR 7 

DIM R%(6,17) 

FOR T=2 TO 6:GOSUB 150:NEXT 

X=TNT(RND*4 )+3:Y=TNT(RND*17 )+1:TF R%(X,Y)=0 THEN R%(X,Y)=7 ELSE 121 
FOR 1=8 TO 20:GOSUB 150:NEXT 

1T=10:FOR J=1 TO 20:GOSUB 150:NEXT 

T=19:FOR J=1 TO 3:GOSUB 150:NEXT 

T=20:FOR J=1 TO 3:GOSUB 150:NEXT 

T=21:FOR J=1 TO 10:GOSUB 150:NEXTT 

R%( 1,15 ) =1 

FOR 1T=22 TO 24:FOR J=1 TO 10:GOSUB 150:NEXT:NEXT 

RETURN 

X=TNT(RND*6 )+1:Y=ITNT(RND*17 )+1:TF R%(X,Y)=0 AND (X<>1 OR Y<9 ) THEN R%(X,Y) =+ 


:RETURN ELSE 150 


FOR IT=0 TO 1000*T:NEXT :RETURN 

)ME2 

FOR M=1 TO LEN(A$ ) : B$=MID$(A$,M, 1 ) : IF B$=" "THEN PRINT" "ji:GOTO 195 

BEEP 1:PRINT B$::BEEP 0 

FOR BBB=0 TO 30:NEXT:NEXT:PRTNT : RETURN 

FOR PLT=O0 TO 7:COLOR=(PLT,PLT ) : NEXT : RETURN 

TF TA<=0 THEN A$=" タ イリ ョ ク カ " ナク ナッ タ GAME OVER" :GOSUB 185:GOTO 50000 ELSE RETURN 
LOCATE 1,19:PRTNT "スペ" - ス キー ヲ オシ テク タ * サ イリ ": 

TF INKEY$=" "THEN RETURN ELSE 310 
*LOADTNG.DATA1:A$=DSKT$(1.0.0,16) :A$="":POKE &HF250.52:DSKR=&HE150:CALL DSKR 


:RETURN 


360 


*LOADING .DATA2:A$=DSKT$(1.0.0,16):A$="":POKE &HF250.54:DSKR=&HE150:CALL DSKR 


:RETURN 


370 


*LOADTNG.DATA3:A$=DSKT$(1.0.0.16) :A$="":POKE &HF250.56 :DSKR=&HE150:CALL DSKE 


:RETURN 


*BACK:VIEW(0,0)-(639,136 ) :RBYTE( BC ) : VIEW(0,0)-(639,199 ) : RETURN 
*CONS : WTDTH 40,20:CONSOLE 14,6:CLS:RETURN 
*MC:CLS :VIEW(0,0)-(639,135) :RBYTE( 0 ) :VIEW(0,0)-(639,199 ) : RETURN 
?ME190 
FOR M=1 TO LEN(A$) :B$=MTD$(A$,M,1) :TF B$=" "THEN PRTNT" "::GOTO 530 
BEEP 1:PRINT B$::BEEP 0 
FOR BBB=0 TO 7:NEXT:NEXT:RETURN 
? ME3 
COLOR 7 
FOR 1=0 TO LEN(A$)\17 
LOCATE 0,14+T:FOR J=1 TO 17:BEEP 1:PRTNT MID$(A$,T*17+J。1) ::BEEP 0 
FOR BEE=1 TO 30:NEXT:NEXT:NEXT : RETURN 
リタ ー50 
TEF TA>=50 THEN TA=TA-50 : RETURN 
TF TA<10 THEN TA=0:RETURN 
TA=10 : RETURN 
*DO 
A$= "サテ ト *" ウシ ャ スカ ・・・":COLOR 2:LOCATE 20,14:GOSUB 500 
COLOR 7:FOR J=15 TO 18:READ A$:T=LEN(A$) :F%( 了 ー15 ) =T : TF 1T<2 THEN A$=" 
LOCATE 20,J:GOSUB 500:NEXT:A=USR( 0 ) 
LOCATE 20,19:COLOR 6:PRTNT" タ イリ ョ ク =" iTAi:C$=TNPUT$( 1 ) 
TF(C$="1"AND F%(0)<2)OR(C$="2"AND F%(1)<2)THEN 830 
TF(C$="3"AND F%(2)<2)OR(C$="4"AND F%(3)<2)THEN 830 
TF C$="0"OR CW>"4"THEN 830 
C=VAL(C$ ) :CLS : RETURN 
DATA" 1 サン ホ * シテ イル " "2 ケイ コチ ャ ン ヲ サカ "スリ 」 "3 タル" コ ヲ カイ ニ イ ク " 」 "4 イチ モク サン ニニ ニケ ・ ル " 
DATA" 1 カイ マシ タリ "2 カイ マセ ヤン テッ シタ リツ 37747 
DATA"1 ミル" "2 ヘ ヤ ラ が ルリ 73774" 
DATA" 1 マー シバ ャ ン スル "の 2 マー シト ャ ン シナ イリ "37 4" 
DATA"1 ナク トル リリ 72 ケル "3 ニケ トル "4 
DATA" 1 オア イ テ シテ モ う 9" "2 ヘ ヤ ラ テテ ルリ "37 "4" 
DATA"1 チラ ヤル" "2 ニタ ルリ "3 タタ カウ "7 4" 
DATA" 1 ウッ テ モ も う 9" "2 ヤメ テオ クリ "3 "4" 
DATA"1 カナシ ヲ スル "72 ヘス ヤ ラテ タル "737 94" 
DATA"1 アッ タリ" "2 アッ テイ ナイ" 7 37 "4" 
ハナ シ ヲ スル " "2 ヘ ヤ ラ テ " ル "73 イキ ナリ オツ ウリ 4" 


文 切 っ た リス ト を ビニ ー ル ファ イル に 入れ て いけ ば 0 K/ 
見 や すい し 、 保 存 も し や すく 一 冊 の 本 みた いで グー で し ょ ? 


学 = 


9,.199):CIRCLE(471.17) 12.0」。,.7:PATNT(471,17),0 

33041 TSET &HCF7B,0 - 

33042 PAINT(472.27),0:PATNT(472,52) ,0 

33050 FOR T%=426 TO 522 STEP 3:LINE(T%,4)-(T%,47),7:LINE(T%,50)-(T%,91 ) ,7 :NEXT 
33060 VITEW(539,29) -(546,36 ) :RBYTE(2) :VTIEW(0,0)-(639,199) :TSET &HCFBD, 4 

33080 WBYTE(&HD8D3 ) : POLL 0,137,30:GOSUB *CONS : RETURN 

33100 DATA 16,16.0,.0.0,.0,.0,-993.0.0,1040,.0,0,1040,0,0,1040,0.0,-993,0,0,1040,0,0 
js1040,.0,0,.1040.0.0,1040,.0.0,-993.0,0,1040,0,0,1040,.0,0,1040,.0,0,1040,0,0,-993 
33101 DATA 16,16.0,0,4100.0,.0,.8194.0,0,-449,0,0,-32768,0,0,-32768,0,0,-993,0,0,- 
32768,.0,0,-32768.0.0,-129.0.0,4.0.0,4.0,.0,-501,0.0,8208.0.0,8224.0.0,8256,.0,0,-2 
4 1 

33102 DATA 16,16.0.0,0.0,0,8192.0.0」4104,0,0,4100.0,.0,4100,.0.0,7684.0.0,-4057,0, 
0,4124.0,0,4100,0,.0,4100.0,0,20484,0,0,8196.0,.0,4,0,0,43,.0,0,-2045,0,0,0 

33103 DATA 16.16,0,0,-32768,0,0,-32768,0,0,-129,0,0,-32768,0,0,-993.0,.0,-31728,0 
0」-31728.0.0,-993,0,0,-31728.0.0,-31728,0,0,-993.0,.0,-24574.0.0,-28668,0,0,-296 
72.0.0,-31904.0,.0,-32768 

33104 DATA 16.16,0,0,-32768,0.0,-32768,0,0,-32768,.0,0,-32768.0,.0,-32768,0,0,-129 
ヵ 0.0,-32768.0.0,16385,0,0,16385.0.0,16385.0,0,8194.0.0,8194.0.0,4100,.0,0,2056,0, 
0,1040,.0,0,864 

34000 ' 還 還 較 シャ ワー 還 呈 琴 

34010 CLS:OUT 104.0:RBYTE(0) :COLOR=(3,0) :FOR 1T=1 TO 7:COLOR=( 1, 1 ) : NEXT : BC= 1 : GOSU 
B 210 

34020 VIEWw(231.6)-(407,134) :RBYTE( 6 ) :VIEW(239,10)-(399,130 ) :RBYTE(5) :VIEW(0,0)-( 
639,199) 

34030 ISET &HD137.3:PAINT(317.24),0,3:PATNT(300,20),1,3:PAINT(378,.67),4,3:PAINT( 
93617 の 43 

34040 VIEW(239,69)-(399,71) :RBYTE(6 ) :VIEW(0,0)-(639,199) :FOR I%=239 TO 399 STEP 
3:LTNE(T%,10)-(T%,68) ,7:LTNE(1T%,72)-(T%,130 ) , 7 : NEXT 

34050 POLL 19,131,.30 

34051 GOSUB 200:COLOR=( 3,0) :GOSUB 220:GOSUB *CONS : RETURN 

35000 ' 還 是 較 NOTF 還 是 較 

35010 CLS:OUT 104,0:RBYTE(0 ) :GOSUB 200:BC=1:GOSUB 210 

35020 VITEW(99.,7)-(446,127 ) :RBYTE( 7 ) :VIEW(0.0)-(639,199) :LINE(273.7)-(273,127),0: 
FOR TI%=20 TO 114 STEP 3:LINE(115,1%)-(257」I%) ,0:LINE(289,I%)-(430,1T%) ,0:NEXT 
35040 ISET &HD39F,2 

35041 PAINT(403.72)」1.2:PAINT(410.75),6,2:PATNT(425,81) ,2,2 

35050 TSET &HD3C5 , 1 : GOSUB *CONS 

35051 RETURN 

36000 ' 還 耳 較 PRESENT 還 是 本 

36010 CLS:OUT 104,.0:RBYTE(0) :VTIEW(0,0)-(639,135 ) : RBYTE( 1 ) :VIEW( 136, 1 ) -(256,51) :R 
BYTE( 3 ) :VIEW(0,0)-(639,199 ) 

36020 ISET &HD5C7,0:WBYTE(&HD938 ) : GOSUB *CONS : RETURN 

36050 CLS:OUT 104,0:RBYTE(0):CMD(120.50), ソ スウ 日 ゴ "4 3 5.0,PSET:FOR T=1 
TO 5000:NEXT : RETURN 

37000 ' 還 還 較 IIOVE LESSON 是 還 較 

37010 CLS:OUT 104,0:RBYTE(0) :VTEW(0,0)-(639,135) :RBYTE( 7 ) :VIEW(0,.0)-(639,199) :CM 
D(52,50) , "LOVE LESSON OO",」5,.5,.0,7,PSET 

37015 CMD(45,45),"LOVE LESSON OO",」5,5.0,7,AND :CMD(45,45) , "LOVE LESSON OO" 」5,5,2, 
0,OR 

37016 CMD(47,46 ) ,"LOVE LESSON OO",」5,5.0,7,AND :CMD( 47,46 ) ,」"LOVE LESSON OO"」 5.5,2, 
0,0R :GOSUB *CONS : RETURN 

40000 ' ウ ソノ リセット 

40010 COLOR 0:FITLES :CLS :SCREEN 0,0:RBYTE(0) :COLOR 7:WIDTH 80,25:CONSOLE 0,25,1,.0 
:LOCATE 0,1:PRTINT"Disk version [Aug 19,1983]1":INPUT"How many files(0-15 ) ":DAMASA 
RETAYATSUWAAHON$: PRINT"NEC N-88 BASIC Version 1.1" 

40020 PRINT"Copyright (C) 1981 by Miocrosoft":PRTINT"45382 Bytes free":END 


村 し た 
< 欧 
CLEAR ,&HBAFF:DEF USR=&H35D9:ON ERROR GOTO 70:ON STOP GOSUB 50:STOP ON 
PORE &HEEAB,0:POKE &HEEAC,&HBB : POKRE &HEEA8,&H70:POKE &HEEA9 ,&HBB 
POKE &HEEA2,&H30:POKE &HEEA3 ,&HBD:POKE &HEEA5.&H10:POKE &HEEA6 ,&HBC 
POKE &HEEB7 ,&H90:POKE &HEEB8 ,&HBD:DATNO=0:PICT=0:POKE &HF274.0 
FIELD #0.12 AS ST$:ST$=DSKT$(1,1,.39.,14) 
FOR T=1 TO 12:POKE &HF29F+T,ASC(MID$(ST$,T,1 ) ) : NEXT 
BLOAD "kg2.obj":BLOAD "ksym.dat":BLOAD "tile.dat":BLOAD "dskr.obj" 
10 SCREEN 0,2:WIDTH 40,20:CONSOLE 14.6,.0,1:GOSUB 200 
11 RANDOMTZE(VAL(RTGHT$(TIME$,2) )*500 MOD 30000) :COLOR 7.0:CLS :RBYTE(0) :SCREEN 0 


娘 メ ンド ー く さがっ て 、 何 枚 も 重ね て 切る と 下 の 紙 が ズレ た りす る か ら 
や め よ へ ね // (ハサミ より カッ ター の 方 が キレ イ に 切れ る と 思う ョ ) 


12151 T=2:GOSUB 180:GOSUB *CONS : RETURN 

13000 ' 還 還 較 ハッ ン テ ィ 症 還 還 

13005 DIM PA%(181 ) 

13010 CLS:OUT 104,.0:RBYTE(0) :GOSUB 200:COLOR=(4,0) :VIEW(0.0)-(639,199 ) :RBYTE( 4 ) : 
VIEW(0,0)-(639,199):LINE(0,.0)-(639,135) ,1,B 

13020 CIRCLE(255.135/2),80,.5,.628.5.652:CTRCLE(385,135/2),80,5,.3.768,2.512:PATNT 
(320。509 35 

13030 LINE(160,54)-(477.54),4 

13031 ISET &HD830,4 

13032 GET@(192,53)-(218,82 ) ,PA%:FOR 1T=248 TO 416 STEP 56:PUT@(T,53 ) ,PA%,PSET :NEX 
T:RESTORE 13039:FOR エ T=213 TO 437 STEP 56:READ CC:PAINT(T,57 ) ,CC,4:PATINT(T-15,67 ) 
ヵ 7,4:NEXT:ERASE PA% 

13039 GOSUB *CONS :RETURN:DATA 2.7,.3,6,7 

14000 !' 画 還 画 KEIKO'S ROOM & Mr.X 還 還 還 還 較 

14010 CLS:OUT 104,0:RBYTE(0) :GOSUB 200:COLOR=( 4,0) :VTIEW(0.0)-(639,199 ) :RBYTE(4) : 
VIEW(0,0)-(639,199) :LINE(0,0)-(639,135) ,1,B 

14020 CTRCLE(255,135/2),80,6:PAINT(280,135/2),6:CIRCLE(385,135/2),80,6:PAINT(400 
ゎ 135/2),6 

14030  ' 還 時 昌 昌 間 昌 間 [( 還 昌 間 昌 昌 間 

14040 TSET &HCAAD, 4 

14050 WBYTE(&HD878 ) 

14060 LINE(242.72)-(238.76) ,4:PAINT(247,46),0,4 

14061 POLL 43,.79,4 

14062 PAINT(255,67),0,4:PAINT(289.69),0,4:PATINT(238.105),0,4:POLL 61,.113,30 
14070 LINE(240.76)-(245.71) ,2:LTNE-(246.72),2:LTNE-(242.77),2 

14080 GOSUB *CONS : RETURN 

14090 ' 還 還 間 昌 間 間 昌 ^ 還 昌 間 昌 昌 

14100 OUT 104,.0:ISET &HCC80,4 

14101 PAINT(338,42) ,4:PATNT( 362,36 ) , 4 :GOSUB *CONS : RETURN 

30000 ' 還 還 還 ト ケ イ 6 シ ~ 還 還 還 

30010 OUT 104,0:POLL 0,135,15 

30011 RESTORE 30010:FOR 1T=1 TO 3:READ R,C:CTRCLE(320,.68) ,R,C:PATNT(320,.68) ,C:NEX 
T:DATA 110.2.100,.7.5,.0:GOSUB *CONS 

30020 LINE(318,68)-(320,26 ) , 1 :LINE-(322.68) ,1:LINE-(320.95) ,1:LINE-(318,.68) ,1:PA 
TNT(320,68) , 1 :RESTORE 30020:FOR 1=1 TO 4:READ X,Y,TT$:COLOR 1:LOCATE X,Y:PRTNT T 
肖 介 NSKPD 人 PA 1 みく "12 2 の 5 7 。 3" 20 エエ 6Y。 14 7 9 の 

30030 RESTORE 30031:FOR 1=1 TO 3:READ X1,Y1:LTNE(X1,Y1)-(320.68) ,5:BEEP 1:FOR BE 
E=0 TO 10:NEXT:BEEP 0:FOR BEE=1 TO 500:NEXT 

30031 LINE(X1,Y1)-(320,68),7:LINE(318,68 ) -(320,26 ) , 1:NEXT:DATA 293,28,302,27,311 
ヵ 26:LTNE(320,26 )-(320,68) ,5:BEEP 1:FOR 1=0 TO 300:NEXT:BEEP 0 

30040 T=.5:GOSUB 180 :RETURN 

31000 ' 還 還 較 ケイ コ ハイ ッ テ ク ル 還 証 還 

31005 COLOR 7,0:WIDTH 40,20:CLS:CONSOLE 14,.6:OUT 104.0:RBYTE(0) :GOSUB 200:COLOR= 
(4,0) 

31010 '== ROOM DOOR === 

31020 POLL 0,135,48 

31021 LINE(48,8)-(592,128) ,1.B:LINE(32.0)-(48,8),1:LINE(608,0)-(592.8) ,1:LTNE(32 
ぅ 135)-(48,128) ,1:LTNE(592,128)-(608,135 ) , 1 

31025 VIEW(232,20)-(408,128) :RBYTE( 1) :VIEW(0,0)-(639,199) 

31030 LINE(304,.40)-(336,48),5,B:PAINT(320,41),6,5:LTNE(433.59)-(473.65),1,BF:LTN 
E(433,63)-(473,.64 ) ,4,BF:GOSUB *CONS : EETURN 

31050 "=== OPEN DOOR === 

31060 OUT 104,0:VTEW(230,.20)-(408,128) :RBYTE(5) :VIEW(304,20)-(408,104) :RBYTE( 1 ) : 
VITEW(0,0)-(639,199) :LINE(304,104)-(408,128) ,1:LINE-(408,104 ) , 1:PAINT(376,106 ) ,1, 
1 : RETURN 

31080 !=== KEITKO CHAN === 

31090 ISET &HCCE9,4:PSET(365,96 ) ,4 

31100 WBYTE(&HD895 ) 

31110 WBYTE(&HD8B6 ) : POLL 31,122,30 

31111 PAINT(311,26),0,4:POLL 22,.45,4 

31120 TSET &HCF70,2 

31121 GOSUB *CONS : RETURN 

33000・ ) 回 還 田 メサ " セ トウ タ ~ イ 還 証 較 

33005 COLOR 7,.0:CLS:OUT 104,.0:VIEW(0,0)-(639,199 ) :RBYTE( 0 ) :GOSUB 200:COLOR=(4,0) 
33010 POLL 0,137,3 

33011 VIEW(382,.0)-(639,135) :RBYTE(0) :POLL 0,137,24 

33012 VIEW(96,25)-(343,66 ) :RBYTE(0 ) 

33015 RESTORE 33100:DIM PA%(49) :FOR T%=120 TO 280 STEP 40:FOR J%=0 TO 49:READ PA 
%(J%) :NEXT : PUT( 1%,37 ) ,PA%,PSET :NEXT:ERASE PA%:POLL 25,.67,37 

33020 VIEW(422,0)-(566,93 ) :RBYTE( 1 ) 

33030 VIEW(422,2 )-(526,93) :RBYTE(6 ) 

33040 VIEW(426,4)-(522,47 ) :RBYTE( 5 ) :VIEW(426,50)-(522,91 ) :RBYTE( 5 ) : VIEW(0,0)-(63 


1 太 ま ず 切 り 取 る ペー ジ の 下 に 厚紙 を し く ( 厚 紙 は ポー ル 紙 で も いい ョ )。 次 に キリ トリ 線 に 定規 を あて カッ ター で 切る 


5038 TF(MM=11 AND DD>=23 )OR(MM=12 AND DD<=21 ) THEN HOST$=" イ テ ":HH=5 

5039 TF(MM=12 AND DD>=22 )OR(MM=1 AND DD<=20 ) THEN HOST$=" ャ ヤキ ** " :HH=40 

5040 IF(MM=1 AND DD> =21 )OR(MM=2 AND DD<=18 ) THEN HOST$=" ミ ス " が メ ":HH=50 

5041 1F(MM=2 AND DD>=19 )OR(MM=3 AND DD<=20 ) THEN HOST$= "ウォ " :HH=50 

5050 GOSUB 300:GOSUB 220:COLOR 7:LOCATE 0,14:PRTNT" ア ナタ ノ ウマ レル ハ 、 「" ュ :COLOR 6:PRTINT 
HOST$::COLOR 7:PRTNT" サ ~」 テ ^ ス ネ " :PRTNT "ケイ コチ ャ ント ノ アイ ショ ウ ハ 、 ": ECOLOR 2:PRTNT HHi"%" ji:C 
OLOR 7:PRINT" テ * ス 。" :PRTNT "イス ~ し レ 、 ノ ソ " ミ 人 ハ 、 カ ナウ ト テ "^ テイ マス 。" 

5055 IF Y-YY<18 THEN POKE &HF270,&HFF :RETURN 

5056 IF Y-YY=18 AND M-MM<O THEN POKE &HF270,&HFF:RETURN 

5057 IF Y-YY=18 AND M-MM=0 AND D-DD<0 THEN POKE &HF270,&HFF :RETURN 

5058 POKE &HF270,0:RETURN 

5520 T=2:GOSUB 180 :RETURN 

10000 ' 還 還 較 TEFI, 男 呈 較 

10090 CLS:OUT 104,.0:RBYTE(0) :GOSUB 200:COLOR=(4.0) :GOSUB 210 

10100 ”' 還 還 較 TEFL オ イタ ママ 還 還 昌 還 還 

10110 BC=1:GOSUB 210:TSET &HC700,4 

10111 PAINT(314,26),6,4:GOSUB 10130:GOSUB *CONS : RETURN 

10120 ' 還 還 較 TEI, ホン タイ 還 是 還 間 間 是 

10130 OUT 104,0:TSET &HC77D,2 

10131 PAINT(306,61),6,2 

10140 VITEW(267,47)-(357,120) :RBYTE( 4 ) :VIEW(270.50)-(354.117) :RBYTE(7):VIEW(0,.0)- 
(639,199 ) 

10150 CMD(17*16,.5*8+16) ,"1"。 
10151 CMD.((21*16,5*8+16),"3"。 


2 :CMD(19*16,5*8+16) 。 "27.2。1.4.7,PSET 
2 
10152 CMD(19*16,7*8+16),"5",2 
2 
2 


> :CMD(17*16,」7*8+16) "4"」2,1,4,7,PSET 
1 :CMD(21*16,7*8+16) "6",」2,1,1,7,PSET 
: 6 :CMD(19*16,9*8+16) "8",2,1,4,7,PSET 

10154 CMD(21*16,9*8+16), "9" 5 :CMD(272,104),。"* ネ "2」1,2,7,PSET 
10155 CMD(304,104) "0",」2,1,4,7,PSET:CMD(336,104),"# り 2。1,1,7,。PSET 
10180 FOR X=267 TO 357 STEP 30:LINE(X,47)-(X,120) ,4:NEXT 
10185 FOR Y=47 TO 120 STEP 18:LTINE(267,Y)-(357,Y) ,4:NEXT:GOSUB *CONS : RETURN 
10200 ' 還 還 較 TEI, シソ ュ ワ キ ハス ~ ス 男 還 還 
10210 OUT 104,0:PAINT(314,26 ) ,1,2:PT=3.14/180:FOR T=0 TO 180 STEP 10:X=(30+I/2)* 
2:Y=STN(T*PT ) *25+100:CIRCLE(X,Y) ,10,5:NEXT 
10220 ISET &HC7B2,4 
10221 PAINT(246,9),6,4:GOSUB 10130:GOSUB 10370 GOSUB *CONS : RETURN 
10240 ' 還 題 較 ケイ コチ ャ ン ニニ ツウ シ ~ タ 男 還 
10250 OUT 104,0:GOSUB 10370:RESTORE 10250:FOR IT=1 TO 6:READ X,Y:CTIRCLE(Y,Y) ,1^1. 
2+2,4,,,1:PATNT(X,Y) ,3,4:NEXT:DATA 284,29,292,32,308,35,332,37,364,39,404,38 
10260 VIEWw(413,0)-(639,56) :RBYTE( 3 ) :VIEW(483,56 )-(639,97 ) :RBYTE( 3 ) :VIEW(457,56)- 
(483,90 ) :RBYTE( 3 ) :VTEW(0,0)-(639,199) :CIRCLE(462,15),66,3,,,.5:CTRCLE(518,46) ,11 
1.3,」,.5:CIRCLE(575,54) ,112.3,,,.52 
10270 WBYTE(&HD982 ) 
10280 TSET &HC832,4 
10281 CIRCLE(575,54) ,112,4,4.1,6,.52:WBYTE(&HD99B) :POLL 0,94,14 
10282 PATNT(507,19),0,4:POLL 15,111,30:WBYTE(&HD9A8 ) : GOSUB *CONS : RETURN 
10370 FOR B=1 TO 3: FOR BEE=0 TO 2:FOR BB=1 TO 4:BEEP 1:FOR BE=1 TO 50:NEXT:BEEP 
0:FOR BE=1 TO 10:NEXT:NEXT:NEXT:FOR BBB=1 TO 300:NEXT:NEXT:RETURN 
10380 FOR BEE=1 TO 3:BEEP 1:FOR BE=0 TO 300:NEXT:BEEP 0:FOR BE=0 TO 300:NEXT BE, 
BEE 
10381 GOSUB 220:T=1:GOSUB 180:LOCATE 0,15:A$=" ケ イコ チャ ン ハ 、 ハナ シチュ ウ テス 。"「:GOSUB 190:T= 
1 :GOSUB 180:RETURN 
10390 BEEP 1:FOR BEE=0 TO 50:NEXT:BEEP 0:FOR BEE=1 TO 100:NEXT:BEEP 1:FOR BEE=1 
TO 100:NEXT:BEEP 0:FOR BEE=1 TO 100:NEXT:BEEP 1:FOR BEE=1 TO 150:NEXT:BEEP 0 
10391 GOSUB 220:T=1:GOSUB 180:PRINT:LOCATE 0,15:A$=" オ カケ ニ ナッ タ 、 ハ ンコ " ウ ハ 、 "EGOSUB 19 
0 : PRTNT : A$=" ケ ー ン サ " イ ツ カ ワレ テ オリ マセ キン" :GOSUB 190:T=1:GOSUB 180:RETURN 
12000 ' 還 還 昌 ター ンチ 還 還 還 還 
12010 COLOR 7,0:CLS:OUT 104,0:RBYTE(0) :GOSUB 200:COLOR=(5,0) :GOSUB 40 
12020 BC=1:GOSUB 210:CIRCLE(580,22),15,6:PAINT(580,22),6,6 
12030 RESTORE 12040:FOR IT=1 TO 9:READ X,Y:PSET(X,Y),6:NEXT 1 
12040 DATA 521,10,548,26,68,46,28,26,7,5,10,39,130,5,290,10,413,4 
12050 VIEW(19,109)-(26,128) :RBYTE(2) :VIEW(44,106) -(50,126 ) : RBYTE(2 ) 
12051 VIEw(68,103)-(74,124 ) :RBYTE(2) :VTIEW(0,0)-(639,199) 
12060 CIRCLE(21,99) ,19,4,,,1:PATNT(21,99 ) ,4,4:CTRCLE(46,97) ,19,4,,。1 
12061 PATNT(46,97 ) ,4,4:CTRCLE(71,96 ) ,19,4,,,1:PATNT(71,96),4,4 
12070 VIEW(83,12)-(466,124 ) :RBYTE( 5 ) :VIEW(503,35)-(540,111 ) : RBYTE(5) 
12071 VIEW(565,52)-(589,102 ) :RBYTE(5) :VIEW(0,0)-(639,199) 
12080 ISET &HCA67,5 
12090 FOR wY=24 TO 100 STEP 19:FOR WX=105 TO 435 STEP 40 
12110 CC=INT(RND*8 ) : TF CC<=5 THEN CC=5 
12120 VIEW(WX,WY ) -(WX+15,WY+8 ) : RBYTE(CC) :NEXT W :V 紀 
12140 TSET &HCA98,5 2 を 
12150 WwBYTE(&HD971) :POLL 12,135,42 


10153 CMD(17*16,9#*8+16) , "7" 


1 
1 
1 
1 
1 


す 
す 
ロリ 
9 
す 
4 
す 


お っ と / 忘れ ちゃ 
いけ な い の が 厚紙 だ 


GOSUB 36050 
GOSUB 36000:RESTORE 916:GOSUB 730 ' PRESENT 


GOSUB 300 
GOSUB 37000:RESTORE 918:GOSUB 730 ' LOVE LESSON 


GOSUB 300 
す 


GOSUB 10090 "TEL 
RESTORE 924:GOSUB 730:GOSUB 300:GOSUB 220 
GOSUB 10200 "TEL ハス ~ ス 
TT=0 :GOSUB 220:LOCATE 0,15:A$=" ナ ン ハ ~ ン ニ カケ マス カ ?2":GOSUB 190 :PRTNT:A$="「ー」 ヲ イレ 
7 イモ シ * イナ イ テ *"  TNPUT シ テク タ *~ サイ 。" : GOSUB 190:PRTNT:A$=" < レイ > TEL。No・? OOO-OOO" : GOSUB 190 
:GOSUB 300 
1210 GOSUB 220:LOCATE 0,15:TNPUT "TEL.No. "iTEL$ 
1220 IF TEL$="741-953" THEN 1240 
1230 TT=TT+1:IF TT=5 THEN 1270 ELSE IF TT=10 THEN 1275 ELSE IF TT=15 THEN 1278: り 
X マ チカ " イ 
1231 GOSUB 10390:GOTO 1210:! ペ マチ カ ~ イ 
1240 ITF TINT(RND*5)>=3 THEN 1290 ELSE 1280: リ ツウ ウジ タカ  O ELSE x 
1270 GOSUB 220:LOCATE 0,15:A$="* ネ ネネ ヒン ト 1 **※* ま ":GOSUB 190:PRTINT:A$=" 八 * ソコ ン テ ^ 「『K」 ニ ナ 
ル ノバ 2":GOSUB 190:FOR 1=0 TO 5000:NEXT:GOTO 1210 
1275 GOSUB 220:LOCATE 0,15:A$="* ネ ネネ ヒン ト 2 * ネ * ネ ネネ ":GOSUB 190:PRINT:A$= "テン キー テ ^~ 「K」 ニ ナル 
ノ フル?" :GOSUB 190:FOR T=0O TO 5000:NEXT:GOTO 1210 
1278 GOSUB 220:LOCATE 0.15:A$="* ネ ネネ ヒン ト 3 * ネ ** ま "GOSUB 190:PRINT :A$= "テン キー テ ^ 「K」/ カタ 
チ ニ ウッ テク タダ サイ" :GOSUB 190:FOR 1T=0 TO 5000:NEXT:GOTO 1210 
1280 GOSUB 10380:GOTO 1210 : ! ハナ シチュ ウ 
1290 GOSUB 220 :LOCATE 0,15:A$=" ケ イコ チャ ン こ ニ ツウ シマ シタ 。" :GOSUB 190:T=1:GOSUB 180 
1296 GOSUB 10250 'KETIKO 
1297 GOSUB 220:LOCATE 0,15:RESTORE 926:GOSUB 730 
1298 RESTORE 960:GOSUB 800 
1299 IF C=2 THEN GOSUB 220:LOCATE 0,14:A$=" テ "ハハ 、 へ " ン キ ョ ウ 、 へ ン キ ョ ウリ 。 "EGOSUB 190:PRINT 
・A$=" シ ~ ャ マニ ナラ ナイ ヨウ ニ 、 GAME ハ 、 オ ワ リ マス 。" :GOSUB 190:FOR 1T=O TO 5000:NEXT:GOTO 40000 
2000 GOSUB 12000 ! ダン チ 
2010 RESTORE 928:GOSUB 730:GOSUB 300 
2030 GOSUB 220 
2200 GOSUB 13000 ! ハ ? ン ティ 
2202 RESTORE 932:GOSUB 730 
2205 GOSUB 300 
2300 GOSUB 14000:RESTORE 930:GOSUB 730 ' KEIKO 
2301 GOSUB 300:GOSUB 220 
2320 GOSUB 14090:RESTORE 920:GOSUB 730' KETKO アヤ ウシ 
2330 GOSUB 300:GOSUB 220 
3000 LOCATE 2,15:A$="DISK ヲ シラ へ ` テ 、 セッ ト サレ テイ タラ う 、 SPACEkey ヲ !":GOSUB 190:A=USE( 0 ) : 
=TNPUT$( 1 ) : IF S$<>" "THEN 3000 
3010 GOSUB 220 
4000 RUN "k2r.bas" : mext program'! 
4010 END 
5000 ! コイ ウラ ナイ 
5010 LOCATE 0,14:COLOR 6:PRINT" テ * 人 ハ 、 ハシ メ マ ス 。 DATA ヲ TNPUT シ テク タ ~ サイ " 
5020 COLOR 7:TINPUT" コ トシ ハ 、 ショ ウ ワ ナン 年 テテ スカ ",Y:TF Y<59 THEN COLOR 2:PRTNT "カレ ンタ " -ー ヲ ミ テ 
クタ * サイ":GOTO 5020 
5021 COLOR 7:TNPUT" ナン 月 "』M:TF M>12 OR M<1 THEN COLOR 2:PRINT" ム チャ 
ナ ! 1 7":GOTO 5021 
5022 COLOR 7:TNPUT" ナン 日 "』D:TF D>31 OR D<1 THEN COLOR 2:PRINT"DAT 
AA、 セイ カク ニ こ ":GOTO 5022 
5023 TEF M=2 AND (D>29 OR D<1) THEN COLOR 2:PRINT" ソン ナ 、 コト アル ワケ カ ~ ナイ ":GOT 
O 5022 
5024 GOSUB 300:GOSUB 220:COLOR 3:LOCATE 0,14:TNPUT "アナ タ ノ ウマ レタ ノ ハ 、 ショ ウ ワ ナン 年 テテ スカ 「"。 
YY:TF YY>59 THEN COLOR 2:PRINT" トワ イラ イト ソ ~ - ン シ ^ ャ アル マイ シ 。 。 。。。 "EGOTO 5024 
5025 COLOR 3:TINPUT" ナン 月 テ " ス カ ",MM: TE MM<1 OR MM>12 THEN COLOR 2 
:PRINT" チョ ト マツ テ ネ !!":GOTO 5025 
5026 COLOR 3:TNPUT" ナン 日 テ * ス カ ",DD:TF DD<1 OR DD>31 THEN COLOR 2 
:PRTNT" ツナ 、 アホ すもも SGOWO 5026 
5027 TE MM=2 AND(DD>29 OR DD<1 ) THEN COLOR 2:PRINT" ソン ナ 、 コト アル ワケ カ " ナイ " :GOTO 
5026 
5030 IF(MM=3 DD> =21 )OR(MM=4 AND DD<=20 ) THEN HOST$=" ォ ヒッ シ ~ " :HH=30 
5031 TEF(MM=4 DD> =2 1 )OR(MM=5 AND DD<=20 ) THEN HOST$=" ォ ウゥ ウシ":HH=20 
5032 TEF(MM=5 DD> =2 1 ) OR(MM=6 AND DD<=21 ) THEN HOST$=" フ タコ ュ * " :HH=90 
5033 TEF(MM=6 DD>=22 )OR(MM=7 AND DD<=22 ) THEN HOS1T$=" ヵ カ こ ":HH=80 
5034 TF(MM=7 DD> =23 )OR(MM=8 AND DD<=22 ) THEN HOST$=" シ シ ":HH=70 
5035 TEF(MM=8 DD> =23 )OR(MM=9 AND DD<=22 ) THEN HOST$=" ォ トメ ":HH=60 
5036 TF(MM=9 DD> =23 )OR(MM=10 AND DD<=23 ) THEN HOST$=" テ ン ヒ ^ ン " :HH=50 
5037 ITF(MM=10 AND DD>=24 )OR(MM=11 AND DD<=22 ) THEN HOST$= "サソリ" :HH=10 


文 準備 する モノ 5 に アク バー AND の 


ハサミ カッ ター 定規 (で きれ ば 人 金属 製 ) ファ イル 


ーー: 三 コ 


40 RANDOMIZE( (VAL(RIGHT$(TIME$,2 ) )*500)MOD 30000 ) : RETURN 
FOR 1=0 TO 500*T:NEXT : RETURN 
FOR M=1 TO LEN(A$) : B$=MTD$(A$,M, 1 ) :TF B$=" "THEN PRTINT" "ij::GOTO 194 
BEEP 1:PRINT B$::BEEP 0 
FOR 1=0 TO 30:NEXT : NEXT : RETURN 
FOR PLT=1 TO 7:COLOR= (PLT ,PLT ) : NEXT : RETURN 
VIEW(0,0)-(639,135) :RBYTE( BC ) : VIEW(0,0)-(639,199 ) : BC= 1 : RETURN 
FOR 1I=14 TO 19:LOCATE 0,T:PRINT SPC( 39 ) : : NEXT : RETURN 
LOCATE 2,19:COLOR 6:PRINT" く < ス へ ? - ス キー〉> ヲ オシ テク タ ~ サイ ・・"::A=USR( 0 ) :S$=INPUT$( 1 ) 
TF S$=" "THEN GOSUB 220:RETURN ELSE 300 
Ac&HF2A0:CALL A 
REM: === Comment === 
READ M1$,M2$,M3$,M4$ 
COLOR 7 :LOCATE 2,15:PRINT M1$:LOCATE 2.16:PRINT NM2$ 
LOCATE 2,17:PRINT M3$:LOCATE 2,18:PRINT M4$:RETURN 
READ M1$,M2$.M3$,M4$ 
COLOR 7:LOCATE 2,15:A$=M1$:GOSUB 190:LOCATE 2,.16:A$=M2$:GOSUB 190 
LOCATE 2,17:A$=M3$:GOSUB 190:LOCATE 2.18:A$=M4$:GOSUB 190:RETURN 
REM: === Command === 
A$= "サテ ト ~ ウシ マス カ ・・・":COLOR 5:LOCATE 20,14:GOSUB 190:READ MM1$」M2$,M3$」M4$ 
COLOR 7 :LOCATE 20,15:A$=M1$:GOSUB 190:LOCATE 20,16:A$=M2$:GOSUB 190 
LOCATE 20,17:A$=M3$:GOSUB 190:LOCATE 20,18:A$=M4$:GOSUB 190:A=USR( 0 ) 
LOCATE 20,19:COLOR 6:PRINT"Please No.1Input !"::C$=TNKEY$ 
ITF((C$="1")*(LEN(M1$)<2) )+((C$="2")*(LEN(M2$ ) <2 ) ) THEN 830 
IF((C$="3")*(LEN(M3$ ) <2) )+((C$="4")*(LEN(M4$ ) <2 ) ) THEN 830 
ITF C$="1" THEN C=1:RETURN ELSE IF C$="2"THEN C=2:RETURN 
TF C$="3" THEN C=3:RETURN ELSE IF C$="4"THEN C=4:RETURN ELSE 830 
DATA" サ ア 6 時 ・・" "カテ イキ ョ ウン ノ ケイ コチ ャ ン カ ~ ヤッ テク ル " "キョ ウ モ ケイ コチ ャ ン ニ アエル OOO" 」"" 
DATA オモ テニ ター ルカ ゴイ マス” 。 "ケイコ サッ カナ 7?7 ツ 。 で ょ ェ 
DATA コー メシ ゴ メン 。 キサ リキ "リサ ニ ナッ チャ ッ テ !”。 チ ニ スク ラリ ” アテ" イマ マ テア " レッ ッ スウ シテ イタ クノ ナ 。 "イッ アモ サザ カイ ザ テ 
イ 必 ノ デ * シャ ワー ヲ カシ テ ネ ッ リツ アウ 
906 DATA" サ アァ へ ^ ン キョ ウタ 1 リリ テー モ ト ^" ウ モ キニナル ネッ ・・・" 。 "シャ ワー ルー ム ノ ケイ コチ ャ ン カ に ・・・ リ 7 
908 DATA チョット マッ テー ネッ 0 
910 DATA" ウ ァ ー キレ イタ ~ ナァ アー ⑦ ケイ コチ ャ ンマ O・・・ し 
914 DATA "ケイ コ サ ン / コト テ ~ アタ マカ "イッ ハ 5 イ 。 リ AA ン キ ョ ウ オンザ デニ ツ サカ ナイ 。。。 。 。 ホッ メニ コイ ウラ ナイ が 、 ナッ テ 
イマ ス " 」 "の コイ ウラ ナイ の ヲ ニー シャ ィ シ ョ ウリ 
916 DATA "ケイ コ サ ン カラ ノ タン シ ~ ョ ウ ヒ "ノー ファ レル セ "ント タダ "17 の ウ レシ イナ テア アァ ーー リリ 
918 DAYA" う ファ ルッ ズン そ *!0"、” 。 メッ セー シ ” カー トド ミニ ツ ッ チ コ k が カリ ーー "「 
920 DATA" ア ッ ! が イコ チャ シン 2 ウジ HH と も セト カケ 27 は イツ リサ ニー イツ の YE ケロ チャ ジン フー AWTT 
924 DATA" イ チト ^~ TELPHONE カケ テ ミ マ ショ 9 っ し 介 
926 DATA" ウ アー アナ タ ネッ ! リリ "ヘー ン キ ョ ウ シテ ルフ フリ レツ イ チト " "ワタ シノ ヘ へ ヤ へ コナ イ ?" 
928 DATA "マン ショ ン へ イク マエ ニ 、 ナニ ヲ シテ イル カ " 。 "ソウ カ ^ ン キ ョ ウ テ ^ ミミ テ ミ マ ショ ウッ PP PT 
930 DATA" ケ サイ コロ チャッ" AN ス アイ が り カッ y 7 。" 。「 
932 DATA" ヤ ッ ク アア ア < の 。 "ケイコ チャ ンプ ベ ヤ ター タリ デ 
948 DATA" 1 ウラ ナイ スル " "2 リラ ナイ シナ サイ" 
960 DATA" 1 イク" "2 ヤメ テ へ ソン キョ ウス ルリ 0 
976 DAPA"1 ハク 2 オト ナク グ ペッ ツキ mW の スル に 
978 DATA"1 シャ リー OK スル "。 "2 ター メス メ トー イ の リリ 7 
980 DATA" 1 ア ケ テ アタ ケ "ルリ "2 ハイ ッ テ ク ル ノ フラ マツリ の 0 
1000 GOSUB 30000 '6※" 
1002 RESTORE 900:GOSUB 730 
1005 GOSUB 300 
1010 GOSUB 31000:RESTORE 902:GOSUB 730 'ROOM 
1016 GOSUB 300:RESTORE 980:GOSUB *CONS : GOSUB 800:GOSUB 220 'Q 
1017 TE C=2 THEN GOSUB 220:LOCATE 0,14:A$=" ケ イコ チャ ン ハハ オ コ ッ テ 、 カエ ッ テ 、 イキ マシ タ 。":GOSUB 19 
0:PRTNT :A$= "GAME 人 ハ 、 オ ワ リ テ ~ ス 。 サン ネン テ " シタ 。":GOSUB 190:T=1:GOSUB 180:GOTO 40000 
1030 GOSUB 31050:GOSUB 31090 'ENTER+KETKO 
1032 RESTORE 904:GOSUB 730:GOSUB 300 "ME 
1035 GOSUB 220:RESTORE 978:GOSUB 800 'Qw 
1036 IF C=2 THEN GOSUB 220 :LOCATE 0,14 :A$= "ケイ コチ ャ ン ハ アナ タニ ヒ " ンタ ヲ ハッ テ カエ ッ テ イ キマ シタ 。":GO 
SUB 190:PRINT:A$="GAME ハ 、 オ ワ リ テ ~ ス 。 サ " ン ネン デパ シタ 。":GOSUB 190:T=1:GOSUB 180:GOTO 4000 
0 


1040 GOSUB 33000 "トウ タ " イ 

1041 GOSUB 220:RESTORE 906:GOSUB 730 "ME 

1045 GOSUB 300:RESTORE 976:GOSUB 800 'Qw 

1046 ITF C=2 THEN GOSUB 220:LOCATE 0,14:A$=" テ "ハハ 、 へ ン キ ョ ウ 、 へ ソン キョ ウ 。 "EGOSUB 190:PRTNT 
:A$= "シー ャ マニ ナラ ナイ ヨウ ニ 、 GAME ハ 、 オ ワ リ マス 。" :GOSUB 190:T=1:GOSUB 180:GOTO 40000 

1050 GOSUB 220:GOSUB 34000 ' シ ャ ワ - 

1052 T=.5:GOSUB 180:RESTORE 910:GOSUB 730 

1055 GOSUB 300 

1090 GOSUB 35000:RESTORE 914:GOSUB 730:GOSUB 300:GOSUB 5000' NOTE 

1095 GOSUB 300 


① ビ ニー ルフ ァイル で 保存 する 場合 


680 ” 890 PRINT " L)oad .... ファ イル ヲ メモ リー ニ ヨミ コミ マス < 
690 *SA. " 

700 PRTINT - 900 PRINT " N)ame .... Load,Save ノ トキ ノ ファ イル メ 
710 TNPUT "> Start address :&h"',A$:ST=LEN( イラ ヲ シテ イシ マス 。 

"&h"+A$ ) 910 PRINT " S)ave .・. メモ リー ノ ナイ ヨウ ヲ テ * ィ スク ニ 
720 INPUT "> End address :&h",A$:EN=LEN( ホソ ン シ マ ス 。" 

"&h"+A$ ) 920 PRINT " [RET] .... Dump 1is し ノ 1 フロ ッ ク 
730 TF ST-EN>0 THEN COIOR 2:PRTNT "Error ! アト ヲ し ョ ウシ シマ ス 。" 

"iCOLOR 7:GOTO 710 930 PRINT " [BS] ..... Dump list ノ 1 ロッ ク 
740 COLOR 5:PRINT" SAVE [ ":iFTL$:" ] ( ADD マエ ヲ ヒョウ シシ マス 。「" 
RESS &h":HEX$(ST)j" - "iiHEX$(EN) ji" )" 940 PRINT " [STOP] 。。。 コノ ファ ロク" ラム ヲ スト ッ フ * サ セ も 
750 COLOR 7:PRINT"Ok? (y/N) "::A$=TNPUT$( 1 ) マス " 

:TF TNSTR("Y ャ ン "。A$)=0 THEN *CO. 950 PRINT:COLOR 7:GOTG_ *CO. 

760 BSAVE FTL$,ST,EN:PRINT"Save end.":BEEP 960 

1 :BEEP 0:GOTO *CO. 970 *ER. 

770 『' 980 COLOR 2:PRTNT "!":BEEP 
780 *NA. 990 TF ERR=62 THEN PRTNT "フロ ッ ヒ * - テ * ィ スク カ " ハイ 
790 INPUT "> New filename :",A$S:TF A$="" 和 〒 ッ テ イ マセ ヤン ! "「:RESUME *CO。 
HEN GOTO *CO・ 1000 IF ERR=64 THEN PRTNT "フロ ッ ヒ " - テ デバ ィ ス ク カ " イ 
800 COLOR 5:FTL$=A$:PRINT "Ok.":BEEP 1:BEE ショ ウ テ * ス !":RESUME *CO。 
P 0:COLOR 7:GOTO *CO・ 1010 TIF ERR=68 THEN PRINT " テ ~ ィ スク カ ~ イッ ハ " イ テ * 
810 ” カキ コメ マセ ン ! " : RESUME *CO・ 


820 *HE. 1020 IF ERR=53 THEN PRTNT "[ ":iFIL$:" ] トイ 
830 PRINT "> jiook help menu." 攻 ファ イル ハ アリ マセ ン ! ":RESUME *CO. 

840 PRINT:COLOR 4 1030 IF ERR=1 OR ERR=2 OR ERR=5 OR ERR=8 O 
850 PRINT " D)umD .... メモ リー ノ ナイ ヨウ ヲ シテ イサ ルレ タ ト R ERR=26 OR ERR=32 THEN PRINT " フ " ロク" ラム こ ウチ 
コロ カラ ヒョウ シシ マス 。" コミ ミス カ ~ アリ マス 。 "ERL : キー ョ ウリ ミナ オシ テク タ ~ サイ 。" : RESUM 
860 PRINT " E)dit 。。。。 メモ リー ノ ナイ ヨウ ヲ ヘン コウ シマ ス E *ST。 


* 1040 PRINT " ェ ラ - ハ "jiERL 1 "キョ ウチ" ハッ セイ シマ シタ ! "ECO 
870 PRTINT " F)iles ・.。 トラ イブ 1 フ ディ ルク トリ OR 7:PRINT" エ ラー ヲ シ ュ ミ レー トシ マス ::ERROR ERR 

セ ョ ウタ" シマ Xa " 1050 

880 PRINT " H)e1D .... コマ ント " ノ ヘル フ " メニ ュー ブ ミ マ 1060 #*ST. 

ス 。『 1070 COLOR 7:PRINT "Stopped." 


魔子 ちゃ ん の 秘密 
BASIC> 


?KETKO- 1 H 
7save"'k1.bas" H 
CLEAR ,&HB9FF:ON STOP GOSUB 500:STOP ON :  ' cmd init 
POKE &HEEAB,0:POKE &HEEAC,&HBA:POKE &HEEA8,&H70:POKE &HEEA9,&HBA 1 
POKE &HEEA2,&H30:POKE &HEEA3 ,&HBC:PORE &HEEA5,&H10:POKE &HEEA6,&HBB 1 
POKE &HEEB7 ,&H90:POKE &HEEB8 ,&HBC:DEF USR=&H35D9 1 
FIELD #0,12 AS ST$:ST$=DSKT$(1,1,39,14) ! 
FOR T=1 TO 12:POKE &HF29F+T,ASC(MTD$(ST$,T,1 ) ) : NEXT H 


らら の ぐっ の の ひ の い たら 〇 ら OHー 


BLOAD "Kg.obj":BLOAD "k1.dat":BLOAD "tile.da も t":BLOAD "ksym。dat" 

10 WIDTH 40,.20:CONSOLE 0.20.0,1:GOSUB 200:COLOR 6.0:SCREEN 0,.0:WINDOW(0.0)-(639, 
199):VIEW(0.0)-(639,199 ) :RBYTE(0) 

12 CMD(150,150 ) ,。" ケ "ーー ム チュ ウ ハハ STOP key ヲ オ サ ナ イ テ ^ クタ "サイ "1。1.5.0,PSET:GOSUB 300:RBYT 

E(0) 

13 CLS:COLOR 5:LOCATE 5,7:PRTNT "コウ リク カキ コミ モー ト ~ ニ シマ スカ (y/n) "「::S$=TNPUT$( 1 ) :TF IN 

STR("yY ン ",S$) THEN POKE &HF272,1 ELSE 1F TNSTR("nN ミ ",S$) THEN POKE &HF272,0 ELSE 
GOTO 13 

14 SCREEN 0,PEEK(&HF272 ) 

15 WIDTH 40.20:CONSOLE 14,.6:GOSUB 200:GOSUB 40:COLOR 7,0:CLS 

20 GOTO 1000 

0、" Sub routine 

35 *CONS :WIDTH 40.20:CONSOLE 14,.6:CLS:RETURN 


放 リ スト を 打ち 込む た びに ペー ジ を めく っ て いて は 大 変 ノ 
そこ で ボク が 見 や すく て 保存 し や すい 方 法 を 教え て し ん ぜ よ う 


た ら 、 前 記 の と お り 、 
が ある は ず 。HELP キ ー を 押し て みれ ば 、 エ ラー の で た 
と ころ に 『「LOAD" 7 7 2 77」 も し く は 、「BLOAD"?777 
?"」 と な る は ず だ か ら 、「LOAD」 な ら ば BASIC プロ グ 
ラム 、「BLOAD」 な ら ば マシ ン 語 の プロ グラ ム が 足り な 
いっ て こと だ ョ ググ 
ム を 早く 打ち 込 も う ネ 。 


まだ 打ち 込み 足り な い プ ログ ラム 


「??777」 に あたる 部 分 の プロ グラ 


そし て 、 全 部 打ち 込み 終わ っ た ら 、 


MEUDIT 


く マ シン 讃 エ ディ ター 


1 ?SAVE "MEDTT' 

10 WTDTH 80:CONSOLE ,」,」1:COLOR 7:REY 3 "go 
to 50"+CHR$(13) :FTL$="2222"・PRTINT 
20 PRINT" Memory Editor 「『MEDIT」 for 
/H/A" 

30 PRINT" 

(C) Autani.":PRINT 
40 ON STOP GOSUB *ST.:STOP ON:ON ERROER GOT 
O *ER。 

50 2Z$(0)=""2Z2$(1)="0"k2Z2$(2)="00"*Z ま (3)="00 
0" 

60 *CO. 

70 COLOR 6:PRINT "("iFETL$3 7)" 

80 COLOR 5:PRINT "COMNMNAND> " ::COLOR 7:C$=T 
NPUT$ (1) :IF C$="" THEN 80 

90 BEEP 1:BEEP 0 

100 IF C$="D" OR C$="d" THEN PRINT 
ij:GOTO *DU 。 

上 10 TE OS"B7 ORE で G ま ="e" 
ij:GOTO *ED 。 

120 IF C%="F" OR 
":FILES:GOTO *CO. 
130 IF C$="H" OR 
ji:GOTO *HE。 

140 ITF C$="L" OR 
i:GOTO *LO。 

150 IF C$="N" OR 
i:GOTO *NA。 

160 IF CW="S" 
i:GOTO *SA。 

170 ITF C$=CHR$( 13 ) THEN 
p next>":GOTO *DU2 . 

180 ITF C$=CHR$(127 ) OR C$=CHR$(8) THEN COL 
OR 2:PRINT "<Dump backword":GOTO *DU3 . 

190 PRINT C$j"?2":BEEP:GOTO 70 

200 

210 *#*DU。 
220 INPUT" 
N *CO. 

230 ADDR=(VAL("&h"+A$)\16)*16 

240 COLOR 5:PRINT "[ADDR] +0 +1 +2 +3 +4 
+5 +6 +7 +8 +9 +A +B +C +D +E +F [SUM]1" :C 
OLOR 7 

250 FOR AD=ADDR TO ADDR+&H40 STEP &H10 

260  A$=HEX$( AD ) : PRTINT SPC( 1 ) :Z$(4-LEN(A$ ) 
5A91 7 2"5 

270 FOR Is0O TO 15 

280 A=PEEK( AD+ 1 ) :A$=HEX$(A) :PRINT " ":Z$ 
( 2-LEN(A$ ) ) iA$j :SUM=SUM+A 

290 NEXT IT 


8801/R 


1987 / 12 / 15 


"DUMP " 


THEN PRINT "EDTT " 


” THEN PRINT "FILES 


THEN PRINT "HEIIP " 


THEN PRINT “LOAD 


′ THEN PRINT "NAME 


THEN PRINT "SAVE 


COLOR 1:PRINT "Dum 


> ADDRESS:&h" ,A$ 


TF A$="" THE 


夢 太郎 の お 一 き な お 世話 で も 親切 に フォ ロー し ちゃ う ボ ク は な ん て イイ ヤツ な ん だ コー ナー 


300 
( 3- 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
N A 
440 
450 


) ": 


460 


480 
NT: 
490 
LOR 
500 
LOR 
510 
520 
530 
540 
550 
560 
570 


COLOR 


450 
580 
590 
600 
610 
620 
630 
640 
650 
iCH 
660 
NST 
670 
EP 


RUN "k1.bas" と 入力 すれ ば ゲー ム が スタ ー ト 。 長い 

プロ グラ ム だ けど 頑張 っ て ネ 。 
最後 に 6 

打ち 込み 終わ っ た 人 へ 「 お 疲れ 様 で し た 」。 
支 『 慶 子 ち ゃ ん の 秘密 』 リ スト 公開 に 関す る ご 質問 、 お 問 
い 合 わせ は 、 質 問 の 内 容 を 詳し く 書 いて 、 ハ ガキ また は 
封書 で 〒160 東京 都 新宿 区 新宿 5-18-20 辰巳 出版 帳 
アソ コン 編集 部 「 慶 子 ら ちゃ ん リス ト 」 係 まで お 願い し ます 


文 こ れ さ え あ れ ば 、 マ シン 語 入力 は 
も ちろ ん 、 サ ムチ ェ ッ ク や セー ブ プ ブ 、 
ロー ド な ど な ど 、 な ん で も こなせ ち 
ゃ う ゾ ン // マシ ン 語 を 入力 する 前 に 
この リス ト を 打ち 込ん で ネツ 


BY. AUTANI 


A$=RIGHT$(HEX$(SUM) ,3) :PRTNT " 
LEN(A$) ) :A$ :SUM=0 
NEXT AD 
ADDR=AD:GOTO *CO. 
*DU2 . 
ADDR=(ADDR\16)*16 
GOTO 240 
すま 
*DU3 . 
ADDR=((ADDR-&HAO )\16)*16 
GOTO 240 
*ED. 
TNPUT" > ADDRESS:&h",AS 
$=HEX$(ADDR ) 
ADDR=VAL( "&h"+A$) 
PRINT "(":RTGHT$("000"+HEX$(ADDR ) , 4 ) ji" 


リュ の $ 


TF A$="" THE 


PRINT RIGHT$( "0"+HEX$(PEEK(ADDR ) ) , 2):" 


A$=TNPUT$( 1 ) 
GOTO *CO。 

TF A$=",」" THEN COLOR 2:PRINT"<BACK" :CO 

7:ADDR=ADDR-1:GOTO 450 

IF A$="。 "| THEN COLOR 5:PRINT"NEXT> "ECO 

7:ADDR=ADDR+1:GOTO 450 
A$=CHR$(&H93 ) THEN A$="AT 
A$=CHR$(&H8F) THEN A$="B" 
A$=CHR$(&H92) THEN A$="C" 
A$=CHR$(&HE1 ) THEN A$="D" 
A$=CHR$(&HE2) THEN A$="E" 
A$=CHR$(&HE3 ) THEN A$="F" 

TNSTR( "0123456789ABCDEF",A$) =0 THEN 
2:PRTINT"! "EiCOLOR 7:BEEP:D$=" "EGOTO 


TF A$=CHR$(13) THEN PRI 


PRTNT A$::D$=D$+A$ 

エ T=1+1:TF 1<2 THEN 480 

PRINT 

POKE ADDR,VAL("&h"+D$ ) 
ADDR=ADDR+ 1 GOTO 450 

す 

*1LO. 

PRINT 
R$(34) : 

PRINT" > Ok? (y/N)"::A$=TNPUT$(1):TE 1 
R( "YY タン",A$) =0 THEN PRINT:GOTO *CO、 

BLOAD FIL$:PRTNT "Load end.":BEEP 1:BE 
0:GOTO *CO. 


"> Read filename ":CHR$(34) jFTL$ 


マン ド で ファ イル ネー ム を 決め る と 、 コ マン ド の (2 7? 
? ) の と ころ に 、 フ ァイル ネー ム が 入る ん だ 。 デ ィ ス ク か 
ら フ ァイル を ロー ド す る 時 は 、 ま ず NAME コマ ンド で フ 
ァイル ネー ム を 決め ゆめ な いと いけ な いん だ よ 。 セー ブ す る 
時 も 同様 ど 。「 な ん で 、 わ ざわ ざ フ ァイル ネー ム を 決め な 
きゃ な ん な い の ? 」 っ て 悩む 人 が いる と 思う けど 、 た し 
か に 、 ロ ー ド する 時 や セー ブ す る 時 に ファ イル ネー ム を 
入れ て も いい か も し れ な いね 。 だ けど これ は 、 ロ ー ド し 
た 時 と セー ブ し た 時 の ファ イル ネー ム に 違い が で る の を 
防 で た め な ん だ 。 た と えば 、 違 う フ ァイル ネー ム で セー 
プ し ちゃ うと 、 余 計 な ファ イル が 作ら れ ち ゃ うし 、 ど っ 
ち が 新 し い フ ァイル だ っ だ たか 、 わ か ら な く な っ ちゃ う 場 
合 が ある か ら ね 。 い っ た ん ファ イル を ロー ド し た ら 、 な 
る べく NAME コ マン ド は 使わ な いよ うに し よ ょ よう 。 


大 L)O8d ディ スク 上 の ファ イル を メモ リー に 読 み 込む 
NAME コ マン ド で 決め られ た ファ イル を 、 ド ライ ブ 1 
に 入っ て る ディ スク か ら 読 み 込む 。 コ マン ド を 入れ る と 、 
ロー ド す る ファ イル ネー ム を 表示 し て 、「O K ? 」 と 聞い 
て 《 る の で 、 そ の プロ グラ ム を ロー ド す る 場合 は 、「Y」、 
キャ ン セ ル は 「Y」 以 外 の キー を 押す 。 を そし て 、 そ の ファ イ 
ル が ディ スク に な い 場 合 に は 、 エ ラー メッ セー ジ を 表示 
し て 、 コ ユマ ンド 入力 に 戻る 。 こ の 時 は 、FILES コ マン ド 

で ファ イル ネー ム を 見 直し て ネ 。 


S)av@G メモ リー の 内 容 を ディ スク に 書き 込む 
コマ ンド を 入力 する と 、 ス ター ト ア ドレ ス と エン ドア 
ドレ ス を 聞い て くる の で 、「 マ シン 語 プ ログ ラム リス ト の 
説明 」 ど お り に アド レス を 打ち 込ん を で ね 。 モ セー ブ す る 時 
の ファ イル ネー ム は 、NAME コ マン ド で 指定 し た ファ イ 
ルネ ー ム が 使わ れる ん だ ョ 。 初 め て 入力 し た な リ スト の 時 
は 、NAME コ マン ド で ファ イル ネー ム を 入れ な けれ ば な 
ら な いか ら 気 を つけ て 。LOAD コ マン ド で 読み 込ま れ た だ 
ファ イル を セー プ す る 場合 は 、 ロ ー ド し た あと で NAM 
E コ マン ド を 使わ な い 限 り 、 フ ァイル ネー ム を 変え る 必 
要 は な いん だ 。 こ の 場合 6「OK ? 」 と 聞い て くる の で 
よけれ ば 「Y」、 キ ャ ン セ ル は 「Y」 以 外 の キー を 押せ ば いい 。 


文 F)IIGS ディ レク トリ ー の 表示 

ドラ イブ 1 に 入っ て いる ディ スク の ディ レク トリ ー を 
表示 する ん だ 。BASIC で 、FILES と や る の と 同じ こと 
だ 小 。 


文 盛 )dit メモ リー の 内 容 を 作成 (マシ ン 久 を 入力 ) す る 

コマ ンド を 入力 する と 、 エ ディ ッ ト を 開始 する マシ ン 
語 ア ドレ ス を 聞い て くる の で 、 ア ドレ ス を 入力 する 。 そ 
うす れ ば 、 エ ディ ッ ト 開 始 ほ し な る 。 左 の カッ コ の 中 は 、 
アド レス 番号 。 そ の 隣り が 、 そ の アド レス に ある デー タ 
に な る ん だ 。 を そし て 、 矢 印 の 右 隣り に プロ ンプ ト が 出 て 
入力 待ち に な る 。 そ うし た ら 、 掲 載 し て ある と お り に 打 
ち 込 め ば OK/ 間違え て 打ち 込ん で し まっ て も 、「0 一 
F 」 と コマ ンド 以外 の キー を 押す と ビー プ 音 が 出 て 、 同 


じ ア ドレ ス で の デー タ 入 力 待ち の 状態 に 戻る ん だ ョ 。 入 
力 し な デー タ は 、 2 文字 目 を 打っ た 時 点 で メモ リー に 書 
き 込 まれ る 。 書き 込ま れ て し まっ た 場合 は 、 間 違え た ア 
ドレ ス ま で 、「,」 と 「.」 の キー を 使っ て 移動 する こと 。 大 
きく 移動 し た い 時 に は 、 リ ター ン キ ー で いっ た ん エ デ イ 
ッ ト を 抜け て か ら 、 ま た エディ ッ ト に 戻っ て その アド レ 
ス を 指定 する 。 特 別 な 機能 ほし し て 、 グ ラフ ィ ッ クキ ー を 
押し な が ら テ ン キ ー の 1 一 6 を 押す こと に よっ て 、A 一 
F を 入力 する こと も で きる ん だ ョ 。 こ れ は 、 わ ざわ ぎ 手 
を 大 きく, 動か る な く て も すむ よう に な っ て いる ん だ 。 


巳 )dit (エディ ッ ト ) の コマ ンド 表 


(,) 一 前 の アド レス に 移動 

[.〕 一 一 次 の アド レス に 移動 

〔0 一 9) デー タ の 0-9 

【AーF〕 デー タ の AF (大 文字 入力 の み ) 


(GRPHJ (1〕) = 〔AJ 
〔GRPH〕 二 【2] = 〔B〕 
(GRPH) 二 【3) = 〔C]〕 
[GRPH] 二 【4〕 = 〔D〕 
〔GRPH〕 二 〔5] = 〔E〕 
(GRPH〕 二 【6] = 〔F〕 


[RETURN]〕 エディ ッ ト を 終了 し ます 


文 D)umD メモ リー の 内 容 の 表示 (お UM 付き ) 

コマ ンド を 入力 する と 、 表 示 を 開始 する アド レス を 聞 
いて くる の で 、 キ ャ ン セ モル する な ら そ の まま リタ ー ン キ 
ー を 押す 。 ア ドレ ス を 入力 する と 、 そ の アド レス を 含ん 
だ 行か ら 表 示 が 始ま る ん だ 。 デ ー タ の 表示 形式 は 、 掲 載 
し て ある マシ ン 語 リス ト と 同じ に な っ て いる か ら ネ 。 デ 
ー タ を 80 バ イト (16 バ イト X5 行 ) 表 示す る と 、 コ マン ド 入 
力 に 戻る ん だ 。 そし て 続き を 表示 る させ た い 時 に は 、 コ マ 
ンド モー ド で リタ ー ン キー を 押す 。 その 逆 に 、 前 の アド 
レス を 表示 る せ た い 時 は 、 デ リー トキ ー か バッ クス ペー 
スキ ー を 押す こと 。 


日 )eIp コマ ンド の 説明 を 表示 
コマ ンド が わか ら な く な っ た 時 に 使う ん だ ョ 。 コ マン 
ド は 「H」。 こ の 場合 ヘル プ キ ー は 反応 し な い ョ 。 


BASIC の プロ グラ ム を 打ち 込み 終わ っ た ら 、 早 速 走ら 
せ て みよ う 。 ディス ク に 入っ て いる プロ グラ ム (BASIC) 
を 走ら せる に は 「RUN" 〇 〇 〇 O 〇 "(ファ イル ネー ム )」 で O 
KK ク マシ ン 語 の プロ グラ ム は RUN で き な い けど 、 呼 び 
出す 方 法 を 知っ て いる 人 も 勝手 に 走ら せな いで ネ ノ 走 
ら せ る と 当然 、 虹 走 し も ちゃう ゲ ク て くれ で れ も マシ ン 語 
の プロ グラ ム は 、 セ ー ブ し た 状態 の まま に し て お いて ネ 。 

BASIC の プロ グラ ム を 走ら せ て 「File not found」 が 出 


2 
@ 輝 抱 る REM 文 の 省 *「」 や 「.REM」 の 右側 に 続く 文字 列 は 、 打 ち 込ま な く て も 0 K。 前 に も 出 て きた けど R EM っ て い 
い 3 6 う の は 「 注 釈 」 の 意味 で 、 プ ログ ラム を 見 や すく する タメ に ある ん だ 。 で も 、 そ の 行 を 削っ て し まう 
略 に つい て と ジャ ンプ 多 令 で エラ ー に な る 場合 が ある か ら 気 を つけ よう ネ 。 


に な っ だ たら 、 す ぐに ディ スク を 抜 こ う 。 お そら 〈「 暴 走 」 

と いう 状態 どか ら 、 デ ィ ス ク を 壊さ れる 危険 性 が ある ん 
だ 。 デ ィ ス ク を 抜い た ら 、 次 に リセ ッ ト ス イッ チ を 押す 。 
STOP キー を 押し な が ら リ セッ トス イッ チ を 押す と いう 
方 法 も ある けど 、 シ ステ ム 本 体 が 壊さ れ て いる 場合 が あ 
る の で 結局 「 走 」。 し て し まう か ら 、 あ きら め て リセ ッ ト 
スイ ッ チ を 押 そ う 。 

茜 走 し ちゃ うと 、 今 まで 打ち 込ん だ ブログ ラム が 消え 
ちゃ うか ら 、 打 ち 込 み 終 わっ た ら そ の プロ グラ ム を 「R 
UN」 さ せる 前 に 必ず セー プ す る こと 。 そ し て 、 保 存 デ ィ ス 
ク も 念 の た め に バッ クア ッ プ (コピ ー) を と っ て お こう ネ 。 
バッ クア ッ プ 用 の ディ スク は 、 保 存 デ ィ ス ク を 作っ た 時 
と 同様 に フォ ー マ ッ ト し て 、 シ ステ ム デ ィ ス ク の 中 に 入 
っ て いる 、 デ ィ ス ク の バッ クア ッ プ 用 の ユー ティ リティ 
プロ グラ ム を 使っ て ネ 。 こ れ な ら デ ィ ス ク を 壊 き され て も 
最小 限 の 被害 で すむ か ら だ 。 


「 慶 子 ち ゃ ん の 秘密 」 は 、BASIC 部 分 と マシ ン 語 部 分 と 
デー タ か ら で き て いる ん だ 。 マ シン 語 部 分 と いう の は 、 
BASIC で は で き な い 動作 を や っ だ た だり 、BASIC じ ゃ めん ど 
くさ い 処 理 を させ る た め に ある ん だ ョ 。 特 に ゲー ム の 画 
面 の 操作 に は 、 マ シン 語 は 絶対 必要 だ . グ 

この ゲー ム で は 、BASIC の ファ イル ネー ム は 「?2 2792 
? . bas」 で 、 マ シン 語 は 「? 2? ? 2? . obj」、 デ ー タ は 、 
「? 7? 2? ? 、dat」 の よう に な っ て いる ん だ 。 そ し て 、 こ の 
デー タ は マシ ン 語 の 状態 に な っ て いて 、 打 ち 込 む 時 に は 
マシ ン 語 と 同様 に 入力 すれ ば いい よう に な っ て いる 。 マ 
シン 語 を 入力 する に は 、BASIC に 付い て いる 「 マ シン 語 


モニ タ 」 を 使っ て も いい けど 、 使 い 方 が よく 解ら な い 人 は 、 


掲載 し て ある マシ ン 語 エディ ター「MEDIT」 を 使っ て ネ 。 

も ちろ ん 、 マ シン 語 を 入力 する 時 に も 打ち 込み ミス を 
し な いよ うに 気 を つけ よう 。 け っ こう キツ イヒ と 思う けど 
頑張 っ て ./ そし て 打ち 込み 終わ っ た ら BASIC 部 分 を 
RUN さ せる 前 に 、 必 ず セ ー ブ す る の も 忘れ な いで ネ 。 と 
いう の も 、BASIC な ら RUN& る せ て も エラ ー が 出 て 、 プ 


ログ ラム が スト ッ プ する だ け で すん じゃ う 時 が ある けど 、 


マシ ン 語 っ て いう の は 、BASIC と 違っ て 、 エ ラー な ん て 
も の は 出 て こない の だ これ が マシ ン 語 の 最大 の 問題 
な ん だ 。 1 ヵ所 で も ミス っ て いる と 、 す で ぐに 酸 走 し ちゃ 
ぅ 厄介 者 な ん だ 。 間 違っ て いる の が わか っ て いて も 、 ど 
こ が 間 違っ て いる の か 探す の は 、 は っ きり 言っ て 面倒 く 

い 。 い くら 気合 いと 根性 で 見 つけ た と し て も 時 間 が か 
か っ ちゃ うだ け だ し ね 。 

掲載 し た マシ ン 語 リス ト に は 、 デ バッ グ を 楽に する た 
め に 「SUM( サ ム )」 と いう 打ち 込み ミス を チェ ッ ク す る た 
め の 数 字 を 付け て ある ん だ 。 こ れ は 、 連 続 し た 16 個 の マ 
シン 語 の デー タ を 、 全 部 プラ ス し た 数 値 な ん だ ヨ 。 マシ 
ン 語 に バグ が 出 た ら 、 ま ず 掲 載 き され て いる リス ト と SUM 
を 比較 し て 、 数 値 が 違っ て いる 部 分 を 探し 出 を そう 。 そ の 


ンー を 攻 ( 和 を ファ イル ネー ム の 大 文 
CC: 字 、 小 文字 は 重要 だ よ 


行 の どこ か が 間違っ て いる の で 、 ち ゃ ん と 直し て ネ 。 マ 
シン 語 部 分 の リス ト は 、 と て も 長い か ら 、 バ グ の 1 つや 2 
つ は 必ず 出る は ず 。 い っ た ん 打ち 込み 終わ っ た ら サ ムチ 
ェ ッ ク は 必ず や る よう に し て ネ 。 


マシ ン 語 の 掲載 リス ト に つい て 説明 し よう 。 こ こ で は 
「kg. obj」 を 例 に と っ て 説明 する か ら ね 。 


"kg.obj” と 書か が れ て いる と ころ は 、 フ ァイル ネー ム 。 
モー プ す る 時 は 必ず この ファ イル ネー ム で モー プ し て ネ / 


(ADDRESS &hBA0 0 - &hBE 92) こ の 部 分 は 、 マ シ 
ン 語 の アド レス (番地 ) を 表示 し て いる 。 kg.obj と いう プ 
ログ ラム の 一 番 最初 の アド レス (スタ ー ト アド レス ) が 
「&hBA0 0」、 一 番 最 後 の ア ドレ ス (エン ドア ドレ ス ) が 
「& hBE92」 と な る 。 こ れ は セー ブ す る 時 に 必要 に な る 
ん だ ョ 。 


マシ ン 語 の 最初 の DATA は 、BA00 番 地 の 「F5」 だ っ 
て わか る よ ネ 7? 右 へ ひと つ 進 む ご と に 、 ア ドレ ス は ひ 
と つ ず つ 増 えて いく ん だ 。 デ ー タ の すぐ 上 に ある 「+0 
十 1 十 2・・・ 十 上 」 は 、 そ の 部 分 が BA00 に いく つ プ 
ラス し た 番地 か を わか りや すく する だ め に 書い て ある ん 
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SUM の 部 分 で 、 た ま に 2 ケ タ に な っ て いる と ころ が あ 
る けど 、 こ れ は 打ち 出し た 時 の ミス で (実は 僕 が 悪い ん 
で す 。 と ほほ は ほ ) 「1 A」J だ っ た ら 「01A」 と 同じ こと な の 
で 注意 し て ネ 。 


「MEDIT」 に は 、 フ ァイル の セー プ ・ ロ ー ド と 、 メ モリ ー 
エディ ッ ト 、 メ モリ ー ダ ンプ の 機能 が 付い て いる ん だ 。 プ ' 
ログ ラム は 短い けど 、 マ シン 語 の リス ト を 入力 する の に 
必要 な 機能 は 全部 付い て いる ゾ ./ プロ グラ ム は た いし 
て 長く ない から 、 さ っ と 打ち 込ん じゃ お う 。 で は 「MED 
IT」 の 使い 方 を 説明 し よう か な 。 

まず プロ グラ ム を RUN さ せる と 「(? 7 ? ? )COMMA 
ND>」 と 出 て 、 コ マン ド 入 力 モ ー ド に な る 。 コ マン ド に は 、 
Edit, Dump, Name, Load, Save, Help, Files, が ある 。 で 
も 、 そこで 「Edit」 と 打ち 込む 必要 は な く 、 頭 文字 の 「E」 
を 押す だ け で いい ん だ ョ 。 コ マン ド 以 外 の 文字 を 入力 す 
る と ビー プ 音 が 鳴っ て 、 コ マン ド 待 ち に 戻る ん だ 。 次 は 
各 コ マン ド の くわ し い 説 明 を し よう 。 


IN)armmG ファ イル ネー ム の 決定 
SAVE, LOAD の 時 の ファ イル ネー ム を 決め る 。 こ の コ 


娘 ファ イル ネー ム の 所 で 、 文 字 が 大 文字 か 、 小 文字 か に 注意 し よう 。 プロ 
グラ ム は 小文字 で 打ち こん で も 大 文字 に 変わ っ て し まう けど 、* ? で くく 
られ た 部 分 は 変わ ら な いん だ ゾ 。 


ら 文字 どおり 0K ク プロ グラ ム を 打ち 込ん で いこ う 。 
前 に 打ち 込ん で いる 途中 で セー ブ し た 人 は 、 プ ログ ラム 
を ロー ド し ょ う ( マ シン 語 を 打ち 込む 人 は 「LOAD "MED 
IT"」 と し て ネ 。〈《 わ し く は マシ ン 語 を 入力 する の 項 を 参 
照 し て ネ )。 ゲ ログ ラム は ちょ っ と し た 間違い が あっ て も 
スト ッ プ し ちゃ う 。 た と えば 、 よ く や る ミス と し て …… 


その ① 掲載 し て ある プロ グラ ム の 場合 、 特 に 気 を つ 
け て ほし い の が 「 行 番号 」 だ ど 。 き ちん と 並ん で いな い の で 
「 行 番号 」 ほ と 「 た だ の 番号 」 を 間違え や すい 。 ち ょ っ と プロ 
グラ ム を 見 る だ け で は 判断 し づら い 部 分 も ある けど 、 慎 
重 に 見 て 打ち 込ん で ほし い 。 行 番号 を 間違え る と エラ ー 
に な っ て も 、 ど の 箇所 が お か し い の か わか ら な いと いう 
パニ ッ ク に な る 。 気 を つけ て ネ ク 


ぞ その ② コマ ンド と コマ ンド の 間 に は 、 ち ゃ ん と スペ 
ー ス を 入れ る こと 。 コ マン ド と は 、FOR、NEXT、THEN、 
GOTO な ど BASIC の 命令 の こと 。 各 コマ ンド の 後に スペ 
ー ス (空白 ) を 入れ な いと 、 命 令 に な ら ず に 、 た だ の 訪 字 
の か た まり に 化け て し まう こと に な り 、 そ の コマ ンド を 
実行 どき な いん だ 。 こ の 場合 「Syntax error (文法 的 な 誤 
り の ある エラ ー)」 と いう の が 表示 され る の で 、 そ の ① の 
ミス ほど パニ ッ ク に は な ら な いと は 思う けど 、 で きれ ば 、 
コマ ンド を 打ち 込ん だ ら ス ペー スキ ー を 押す 習慣 を つけ 
よう 。 プ ログ ラマ ー の 人 な ど 慣 れ て いる 人 な ら 、 ほ と ん 
ど 無 意識 の うち に や っ て し まう こと な ん だ ョ 。 み ん な も 、 
特に これ か ら BASIC を 覚え よう と 思っ て いる 人 は 、 この 
チャ ンス に 習慣 づけ る と いい と 思う ョ ク 


その ③⑤ . 似 た よう な 支 字 が ある の で 気 を つけ て / 特 
に 数 字 の 「 0 」 ょ アル ファ ベッ ト の 「O」。 こ れ は 本 当 に 間 
違え や すい ん だ 。 疲れ て くる と 、 ど っ ち が ど っ ち だ か わ 
か ら な く な っ て 〈《 る 。 他 に も 「:」 と 「:」、「。」 と 「。」 と か ネ 。 
どん な 小さ な 記号 で も ミス は ミス 。 気 を つけ よう ググ 


ほとん ど は 、 上 記 の 3 つが 原因 で エラ ー に な っ ちゃ う 
ん だ けど 、 最 初 の が 一 番 タ チ が 悪い の で 、 あ れ だ け は や 
ら な いで ほし い 。 だ けど 、 そ れ で も エラ ー っ て 出る も ん 
な ん だ よ ネ 。 こ の エラ ー の 出る と ころ を 見 つけ て 正しく 
直さ き な く ちゃ いけ な いわ け だ けど 、 こ の 作業 が な か な か 
大 変 な の だ よ ネ 。 こ れ を 「DEBUG( デ バッ グ )」 と いう ん 
だ 。 で は 、 エ ラー が 出 て し まっ た 時 の 解決 の 方 法 に つい 
て 説明 し よう 。 


1.「Syntax @rrOr」 

エラ ー が 出 て プ ブログ ラム が 止ま っ た ら 、HELP キ ー を 
押し て みよ う 。 す る と エラ ー が 出 た 行 の リス ト が 表示 さ 
れる ん だ 。 そし て 、 を その 行 の エラ ー が 出 て し まっ た 部 分 、 
も し は 間違っ て る 部 分 に 影響 され て エラ ー に な っ た と 


ころ に カー ソル (白く チカ チカ 点滅 し て いる ヤツ ) が 、 勝 
手 に 移動 し て くれ る ん だ 。 こ れ を 見 て 、 も と の プロ グラ 
ムリ スト と 照 らし 合わ せ て 間違っ て る と ころ を チェ ッ ク 
紀 ま う ネ 。 


.「Undefined ne number」 

これ は 「 命 令 さ れ た 行 番号 が 存在 し ませ ん 」 と いう エラ 
ー。 ブ ログ ラム を 終わ り ま で 打ち 込ん で いな い 人 は 、 お 
そら 〈、 を その 行 番号 まで 打ち 込ん で いな い の が 原因 だ か 
ら 、 大 げき る に 悩ま な いよ うに ネ 。 反対 に 、 全 部 打ち 込み 
終わ っ て る 人 の 場合 は 、 思 いっ きり 悩ん で くだ さい 。 僕 
は 知り ませ ん … な ぁ ー ん て こと は な いな い 。 ま ず は 、1 と 
同様 に HELP キ ー を 押し て エラ ー の 出 た 場所 を 確認 し よ 
う 。 原因 と し て は 、 行 番号 の 打ち ミス と いう の が 一 番 多 
いん だ けど 、 そ れ を 探す の が 一 苦労 な ん だ よ ネ ェ 。 プ ブロ 
グラ ムリ スト を 見 て 、 見 つか ら な い 行 が いっ た い 、 ど こ 
に ある の か を 頑張 っ て 探し て ネ 。 見 つか っ た ら 行 番号 を 
直せ ば いい ん だ けど 、 間 違っ た 行 番号 が 付い て いる 行 を 
その まま に する と 、 ま だ エラ ー の 原因 に な る の で 、 忘 れ 
ず に 消し て お こう ネ 。 


3.「Ilegal function Cal 

「 関 数 な どの 使い 方 が 間違っ て ます 」 と いう エラ ー。 
原因 は 、 お そら く 「(」「)」 が 足り な いか 、 ま だ は 、「。」 
と 「.」 を 間違え て 打ち 込ん で いる 場合 が 多い ん だ 。 エ ラ 
ー が 出 た 行 を よく 見 直し て ネ 。 


2.「Fiie not foOund」 

これ は 「 あ る ファ イル を 読み 込 も うと し た ん だ けど 、 そ 
の ファ イル が ディ スク に 存在 し ませ ん 」 と いう 意味 。 ま ぁ 
この 場合 多い の は 、 必 要 な プロ グラ ム を まだ 打ち 込ん で 
セー ブ し て いな い 時 が ほとん ど だ か ら エ ラー が 出る の は 
当り 前 っ て こと 。 気 にし な く て も 0K。 フ ァイル が ある は 
ず な の に エラ ー が 出る 場合 は 、 プ ログ ラム の ファ イル 名 
の 指定 部 分 が 間違っ て いる か 、 デ ィ ス ク に 入っ て いる プ 
ログ ラム の ファ イル ネー ム が 間違っ て いる か だ 。 ディス 
ク の ファ イル 名 が 違っ て いる 時 に は 、「NAME コ マン ド 」 
で ファ イル 名 を 直 を そう (NAME コ マン ド に つい て は 、 リ 
ファ レン スマ ニュ アル を 見 て ネ )。 


以上 エラ ー は 、 ほ と ん ど が 1、2、3 の どれ か だ か ら 
説明 を 参考 に し て 、 プ ログ ラム を デバ ッ グ し て ネ 。 も し 、 
それ 以外 の エラ ー が 出 た 時 に は 、 と に か 〈 く エラー の 出 た 
行 に 間違い は な いか 調べ て みよ う 。 そ し て それ で も 見 つ 
か ら な い 時 は 、 プ ログ ラム を 最初 か ら 見 直す し か な いか 
も ネ 。 少 し BASIC の わか る 人 は 、 エ ラー が 出 た 部 分 に 関 
連 す る と ころ を 見 直せ ば いい と 思う 。 


画面 が メチ ャ クチ ャ に な っ た と か 、 音 が 鳴り っ ぱな し 


ーー ムレ / て お く と 便利 / セー プ す る 時 は 、 行 番号 と REM を 取れ ば すむ ん だ 。 掲載 の リス ト も 全部 そう な っ て い 
これ で OK./ る か ら セ ー プ の 時 に 使っ て ネ 。(REM=「 '」 だ よ ) 


(クタ と 
9 簡単 セー プ は BASIC の プロ グラ ム に は 、 あ ら か じ め 最 初 の 行 に 「REM(")SAVE \ フ ァイル ネー ム ”」 と し た 行 を 入れ 


《 打 ち 込 あめ の アド バイ スズ ス ) 


慶子 ちゃ ん の 秘 害 旬 叶 


文 初心 者 で も DK。 こ れ さ え 読 め 
ば マシ ン 語 だ っ て ヘッ チャ ラ だ よ 


BY. 大 文 寺 覚 


「 き て 、 早 く ゲ ー ム を や り た いか らき っ きると プロ グラ ム 
を 打ち 込 も っ と ./」 と 言う 人 は ちょ っ と 待っ た ./ いき 
な り プ ログ ラム を 打ち 込み 始め て も 、 そ れ を と っ て お く 
ディ スク は ある の か な ? 

と いう わけ で 、 プ ログ ラム を 打ち 込む 前 に まず プログ 
ラム 保存 用 の ディ スク を 作る こと に し よう 。 


用 意 す る も の は 、 本 体 を 買っ た 時 に 付い て くる 「 シ ス 
テム ディ スク 」 と 「 ユ ー ザ ー ズ ・ マ ニュ アル 」( ま た は 、「 プ 
ログ ラマ ー ズ ・ ガ イド 」)、 プ ラン ク デ ィ ス ク ( 未 使用 の 
ディ スク )。 プ ラン ク デ ィ ス ク は 、 何 か に 使わ れ て いな い 
か よ 〈 確 かめ て ネ グ 

きる て 、 用 意 が と と の っ た ら ま ず は 本 体 付属 の シス テム 
ディ スク (ディ スク の シー ル に 「N88-BASIC」 と 書か れ 
て いる も の ) を ドラ イブ 1 に 入れ て リセ ッ ト ス イッ チ を 
押 を そう 。 す る と モニ ター に 「How many files2」 と 出る か 
ら 、 意 味 は わか ら な く て も リタ ー ン キー を 押す 。 こ れ で 
DISK-BASIC が 起ち 上 が っ た ら 、 次 に マニ ュ ア ル の 「 デ 
ィ ス ク 関 係 の ユー ティ リティ プロ グラ ム 」 の 中 の 「 シ ス 
テム ディ スク の 作成 」 に つい て 書か れ て いる 所 を 必死 で 
探し て ネ 。 見 つか っ だ たら 、 マ ニュ アル どおり に ブラ ンク 
ディ スク を 「 シ ステ ム デ イス ク 」 に し よう 。 ディス ク の 種 
類 は 2 D を 使っ て ネ 。 それ か ら 、 元 に な る シス テム ディ 
スク は 、 必 ず 「N88-BASIC」 を 使う よう に ./ 間違っ て 
も N88 日 本 語 BASIC で フォ ー マ ッ ト し な いよ うに ネ / 
(MH、MA は デモ ディ スク に 入っ て いる シス テム が N88 
-BASIC だ ョ ) 

実際 に は 、 ド ライ ブ 1 に 「N88-BASIC」 の シス テム デ 
ィ ス ク 。 ドライブ 2 に は 「 プ ラン ク デ ィ ス ク 」 を 入れ る 。 
これ で プラ ンク ディ スク を フォ ー マ ッ ト す る ん だ 。 モニ 
ター に は 「Do you need physical formatting? 」 も し 〈 く は 
「 物 理 フ ォ オー マッ ト を し ます か ? 」 に と 出る の で 、 こ れ に 
対し て は キー ボー ド の 「Y」 を 押す (yes の 意味 だ )。 そ し て 
フォ ー マ ッ ト が 終わ っ た ら 、 そ の ディ スク を ドラ イブ 1 
に 入れ て 「FILES」 と 打ち 込ん び で み よう 。 そ し て リタ ー ン 
キー を 押し て みる 。 こ の 時 、 エ ラー が 出 た り 、 デ ィ ス ク 
装置 の ラン プ が つき っ ぱな し に な っ た ら 、 最 初 か ら や 5 
直し だ 。 も う 一 度 、 デ ィ ス ク を フォ ー マ ッ ト し 直る な け 
れ ば な ら な い 。 無事 フォ ー マ ッ ト で きた 時 に は 、「OK」 
と 出る 。 こ れ で プロ グラ ム 保 在 用 の ディ スク の で き あ が 


いい の 


4② う b レト アド バイ ス ツ 


り だ 。 で きた ディ スク に は 「 慶 子 も ちゃ ん の 秘密 」 と 書い た 
シー ル を 貼っ て お く 《 く と いい ョ 。 


プロ グラ ム を 打ち 込ん だ どら (プロ グラ ム が 途中 で も )、 
その プロ グラ ム を ディ スク に 保存 (SAVE) す る こ と 。 

セー ブ 命 令 の 形 は 、「SAVE " 〇 〇 〇 〇 "(ファ イル ネー 
ム )」。 フ ァイル ネー ム と いう の は 、 そ の プロ グラ ム に 付 
けら れ た 名 前 ( ネ ホーム) の こと だ 。 プ ログ ラム は SAVE コ 
マン ド で セー プ る れる と 「 フ ァイル 」 と いう 形 で ディ スク 
に 保存 きれ る 。「 フ ァイル 」 に な っ た プロ グラ ム は 、 い つ 
で も LOAD コ マン ド で ディ スク か ら 読 み 出 すこ と が で き 
る っ て わけ だ 。 

き て 次 は 、 プ ログ ラム を ディ スク か ら 読 み 出 し (LOA 
D) し よう 。 お っ と 、 そ の 前 に 、SAVE コマ ンド で 保存 し 
た 時 の ファ イル ネー ム は 覚え て いる か な ? ロー ド す る 
に は 、 こ の ファ イル ネー ム が 必要 な ん だ ョ 。 忘れ て し ま 
っ た 時 に は 、 ド ライ ブ 1 に ディ スク を 入れ て 「FILES」 と 
打ち 込み 、 リ ター ン キ ー を 押 そ う 。 す る と ディ スク に セー 
プ さ れ た プロ グラ ム の ファ イル ネー ム 全 部 が 出 て 〈 る 。 
た だ し 、 セ ー ブ し て いな いと 何 も 出 て こない か ら ネ (〈 
どい よう だ けど 。 て くれ で れ も セ ー プ し よう ネ )。 こ うし て 
ファ イル ネー ム を 探し 出せ た ら 、 次 は いよ いよ ロー ド だ 。 

LOAD の 命令 形 は SAVE の 時 と 同じ 。SAVE" 〇 〇 OO 〇 " 
の SAVE の 部 分 を LOAD に 変え れ ば いい だ け だ 。 簡単 で 
し ょ ? ディ スク か ら の 読み 出し が 終わ り 「O K」 が 出 た 
ら 、 プ ログ ラム が ちゃ ん と ロー ド さ れ て いる か を 確か め 
る た め に 「LIST」 と 打ち 込ん で 、 リ ター ン キ ー を 押し て み 
よう 。 ち ゃ ん と 読み 出さ れ て いれ ば 、 プ ログ ラム リス ト 
が 出 て くる ハズ だ 。 掲 載 の プロ グラ ム は か な り 長 いか ら 、 
こう や っ て 途中 で ロー ド で きる か どう か 確か め な が ら 打 


ち 込 ん だ 方 が いい と 思う ョ 。 


る ぁ プ ログ ラム の セー ブ と ロー ド の や り 方 は わか っ た 
か な 7? わか っ た ら 早 速 「k1.bas」 か ら 打 ち 込 むと し ょ よう 。 
準備 が で きた ら 「 保 存 用 ディ スク 」 を ドラ イブ 1 に 入れ て 
リセ ッ ト ス イッ チ を 押 そ う 。 そし て 「How many files 
と 出 た な ら 、 そ の まま リタ ー ン キー を 押し 、「OK」 が 出 た 


っ と o ・ ス で 宮寺 守 ee 
(e 生 大 文 寺 の ワン ボ ポ ボ ど う も 大 文 寺 で す 。 ヨロシク ネ 。 さ て 、 ち ょ っ と ここ ら で ワ ン ポ イン ト ・ ア ドバイ ス を し て みた 
う ポイ いと 思う 。 本 当 に ちょ っ と だ けど 、 役 立つ こと だ か ら 読 ん で 参考 に し て みて ネ 。 
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慶子 ちゃ ん の 秘密 (PC-88 版 ) 
完全 プロ グラ ムリ スト 大 公開 

プロ グラ ムリ スト の 公開 は 、 普 通 で き 
な が 0N グ し か し 、 湖 回 まま ャ ピオ シッ ツア 
ト さ ん の 協力 で 実現 で き て 、 ス タッ フー 
同 、 心 か ら 喜 ん で いま ー す ⑦ ざ 

も う 幻 と な っ た この ゲー ム だ けど ご 、 内 容 の 充実 度 は 全く 古 さ を 感じ させ な い 、 ス ゴ 
イ 作品 だ 。 下 記 の 説明 を よく 読ん で か ら 、 ゆ っ くり て と 入力 を 始め る よう に し て ほし い 。 


慶子 ちゃ ん 
の 
秘 向 
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4 座 子 ちゃ ん の 秘密 、 オ ー プ ニン グ タ イト ル 画 面 


※ 慶 子 ち ゃ ん の 秘密 に つい て は 、 P6I( 幻 ソフ ト )、P78( ア ダル ト 年 表 ) も 併せ て ご 覧 下さ い 


スト ー リ 
ぼく の 家 庭 教師 の 慶子 さん は 、 と びき り 美 人 の 女子 大 生 。 当 然 ぼ ば く は 、 勉 強 そ っ 
ちの け で 、 も う 慶 子 さ ん に 夢中 ./ 寝 て も さめ て も 慶子 さん の こと ば か り … 

_ 数 日 後 、 ぼ く の 誕生 日 に 慶子 さん か ら プ レ ゼ ント を も ら っ た ん だ 。 メ ッ 
男 W、、 セー ジ カ ー ド に は 、 な ん と 「⑦ ざ レッスン 」 の 文字 が ノ 
ひょっと し て 、 慶 子 さ ん と …※ メ メ で きる の か !? な ん て ぼく の 
期待 は 高まる ば か り ./ 

で も 、 そ の 慶子 さん が 、 あ る 日 突然 ……… 


ゲー ム 構成 


慶子 ちゃ ん の 秘密 は 、 お お ま か に 4 つの プロ グラ ム よ り 成 っ て いま す 。 
1 回 想 シ ー ン お よび マン ショ ン の 慶子 ちゃ ん を 発見 する まで 。 
2) マ ンション 内 て 慶子 ちゃ ん の 部 屋 を 探し 出す まで 。 

3 慶子 ちゃ ん の 行方 を 追い 、 助 け 出す まで 。 

(画面 が 出 て か ら の お 楽し み ウ VO…) 


ゲー ム 進 行 の 方 法 


ーー 
Sefsrra 


⑱ マ ンション 内 で の ゲー ム 


キミ に 与え られ た 体力 は I00。 いき な り 部 屋 へ 入 
ろう が 、 ド ア を ノッ ク し よう が 、 そ れ は 自由 で す 。 


と に か く 慶 子 ち ゃ ん の 部 屋 へ 急い で 下さ い 。 力 し て 下さ い 。 
で も 、 い ろ い ろ な アク シ デ ン ト て で 、 体 力 が 減っ て | | イ ) どこ か へ 移動 する 時 
ゆき ます 。 体力 が 0 に な る と ゲー ム オ ー バ ー で す 。 例 〇 〇 〇 イク [リターン] 


次 の ゲー ム の 時 に は 、 マ ンション 内 の 配置 が 変わ り | 


1 マエ スス ム [ リターン ] 
提 ます 。 | 


単語 (コマ ンド ) の 入力 方 法 
コマ ンド は 、 カ タカ ナ 入 力 で す 。 動 詞 は (「 イ ケ 」 で 
は な く て 、 〇 〇 ヘリ イク 」 と いう よう に ) 自動 詞 を 入 


& 


辻 ③ ぐ る ざ び の 滞 


rowy パ うき , 學 てき きい 


レン 


立正 一 「E 


周 培 暴 


成 工 


ウシ ロ モ ド ル [| リターン | な ど 。 


@ 度 子 ちゃ ん の 部 屋 に 無事 ( ? ) た どり つい た ら も し く は 、 テ ン キ ー の 2 、4、6、8 で も 0K。 
ここ で 、 慶 子 ち ゃ ん の 秘密 が 少し わか っ て くる と ロ ) 何 か 目 的 語 を 伴う 場合 
ーー 思い ます 。 部 屋 の 中 を くま な く 調 べ ま し ょ う 。 例 シャ シン ミセ ル 「 リタ ー ン 


画面 中 央 に カー ソル (+) が 表示 され ます 。 テ ン キ デン ワ スル [リタ ー シ ] 
ー の 2、4、6、8 の キー で 、 調 べた い 場 所 に 士 印 を あて 、 | 
リタ ー ン キー を 押し て 下さ い (シフ トキ ー を 同時 に 

/ 押す と 、 早 く 移 動 し ます ) | 

』 証拠 な ど 、 3 つ 発 見 すれ ば 0 K で す 


考え られ ます 。 

自由 に 入力 し て 下さ い 。 

/ 続い て の スト ー リ ー は 、 コ マン ド 入 力 に より 、 ゲ シラ ベル | リタ ー ン | 
ー ム が 進み ます 。 あ る 店 に 入っ た り 、 あ る 人 の 証言 | | 
を 聴い た り 、 い ろ い ろ 行 動 し て 下さ い | 


まず 保存 用 の ディ スク を 作ろ う マシ ン 語 を 入力 する 


※ 単 語 と 単語 の 間 は 、 必 ず 一 文字 あけ ます 。 
ハ ) 画面 ・ ス トー リー に より いろ いろ な ケー ス が 
ニ ) その 画面 で 、 あ る 部 分 を 知り た い 時 


する と 、 カ ー ソ ル ( 二 ) が 表示 され ます 。 
調べ 方 は 部 屋 の 中 と 同じ で す 。 


BASIC プロ プラム の 保存 と 読み 出し 


プロ グラ ムリ スト を 打ち 込む 時 の 注意 
プロ グラム に エラ ー が ガ が 出 だら 
エラ ー も 出 な いで 、 止 まつ だ 時 


マシ ン 語 の プロ グラ ムリ スト の 説明 
MEDIT』 の 使い 方 
プロ グラ ム を 打ち 込み 終わ つ だ ら 


本 ララ に 2 ま 寺 ん の クシ ュー ジジ 
あの 、 。 の ソフ ト が 、、 キ ミ の "に 


、 慶子 ちゃ ん の 秘密 (PD-88 版 ) 
完全 プロ グラ ムク ワズ た ・ 大 公 扇 密 
同時 掲載 ン 廊 ア 
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